এটি করার আরেকটি উপায় হ'ল প্রথমে আপনি স্পষ্টভাবে SELECTED_REAL_KIND অন্তর্নিহিত ব্যবহার করে ভেরিয়েবলটিতে নির্ভুলতা নির্দিষ্ট করতে চান এবং তারপরে এটি ভেরিয়েবলগুলি সংজ্ঞায়িত করতে এবং প্রারম্ভিক করতে ব্যবহার করতে পারেন। কিছুটা এইরকম:
INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(15)
REAL(dp) :: x
x = 1.0_dp
এইভাবে এটি করার একটি দুর্দান্ত সুবিধা হ'ল dp
আপনি কোনও মডিউলটিতে সংজ্ঞা রাখতে পারেন , তারপরে USE
যেখানে প্রয়োজন সেখানে মডিউলটি। এখন আপনি যদি কখনও আপনার প্রোগ্রামের যথার্থতা পরিবর্তন করতে চান তবে আপনার পরিবর্তনশীল আরম্ভের শেষে dp
সমস্তগুলি অনুসন্ধান এবং প্রতিস্থাপনের পরিবর্তে আপনাকে কেবল সেই এক জায়গার সংজ্ঞাটি পরিবর্তন করতে হবে D0
। (এ কারণেই আমি 1.0D-1
ওয়াই সংজ্ঞায়িত করার জন্য সিনট্যাক্সটি ব্যবহার না করার পরামর্শ দিয়েছি It এটি কাজ করে তবে ভবিষ্যতে সমস্ত দৃষ্টান্ত খুঁজে পাওয়া ও পরিবর্তন করা আরও কঠিন করে তোলে))
ফোর্টরান উইকের এই পৃষ্ঠাটিতে কিছু ভাল অতিরিক্ত তথ্য দেওয়া হয়েছে SELECTED_REAL_KIND
।