Featured Post

পরিত্যাক্ত শহর হাওড়া

  তৃতীয় বিশ্বযুদ্ধ শেষ হবার পরে অনেক কিছুর বদল হয়েছে। এখন পৃথিবী সূর্যের চারিদিকে ঘরে না বরং সূর্য সহ অন্য সকল গ্রহকে কৃত্রিম ভাবে পৃথিবীর চারিদিকে ঘোরানো হচ্ছে।সেই সময় এর কথা মৃত নগর হাওড়া। তৃতীয় বিশযুদ্ধের সময় চিনা বোমা বর্ষণের ভয়ে সমস্ত নগরবাসী পলায়ন করেছিলো। ডাঃ কেসি পাল এর নেতৃত্বে ওরা মোট চারজন মানে রমেশ, সুমিত ও মাধব সেই রহস্যময় তেজস্ক্রিয় উৎসের সন্ধানে এসেছে। সকাল এগারোটা ঝোঁপ ঝাড় ভর্তি গলি রাস্তা যেখানে বহুবছর কোনো লোকের পা পড়েনি। রাস্তার ধারে ভগ্নপ্রায় লতা পাতা দ্বারা আচ্ছাদিত হয়ে সারি সারি বাড়ি দাড়িয়ে আছে। মাঝে মাঝে কিছু বন্য পাখির ডাক শোনা যাচ্ছে। ঝিঁঝিঁ পোকার ডাকে ওদের পায়ের শব্দ ঢাকা পড়ে গেলেও ওদের যাবার রাস্তার সামনে দিয়ে কি যেনো সর সর করে রাস্তার দুদিকে নেমে যাচ্ছে।ওদের পায়ের কম্পনে রাস্তার উপর ঘাস থেকে ছোটো ছোট পোকা উড়ছে। বাতাসে ঘেঁটু ফুলের গন্ধে ছেয়ে আছে। কিছুদিন আগে ইসরোর এক কৃত্রিম উপগ্রহ ছবিতে এই পরিত্যাক্ত মৃত নগরীর উপর এক রহস্যময় আলোর সন্ধান জানা যায়। তারপর অন্য স্যাটেলাইট এর স্পেকট্রোস্কোপি বিশ্লেষণ এর মাধ্যমে জানা যায় ঐ আলোক কোনো তেজস্

Fortran function example(interest calculation)

   program interest_calculation!This program finding interest by the formula I=P*R*T/100
                               implicit none
                                                       interface
                                                        function interest(bal,intr_rate,time)
                                                         real interest
                                                         real, intent(in)::bal,intr_rate,time
                                                        end function interest
                                                        end interface


                                                       real::bal,intr_rate,time!Declare local variable

                                                 print*,"Entre the balence,interest rate and time(years)"
                                                     read*,bal,intr_rate,time
                                                 print*,"bal=",bal,"interest rate=",intr_rate,"time=",time
                                                 print*,"interest=",interest(bal,intr_rate,time)!prompting the interest value


                                  end program interest_calculation
                                                              !We gonna using this function

                                                               function interest(bal,intr_rate,time)
                                                               implicit none
                                                                    real ::interest
                                                                    real,intent(in)::bal,intr_rate,time
                                                              interest=bal*intr_rate*time/100
                                                                   end function

Popular posts from this blog

Some Funny Mathematical Questions

Puthon3

পৃথিবীর কোনো এক আদিম সকাল