फोरट्रान 90

Question

का उपयोग कर इनपुट फ़ाइल में सही ढंग से टिप्पणी पंक्तियां पढ़ना यह मेरी समझ है कि फ़ाइल से डेटा पढ़ने पर फोरट्रान, लाइनों को छोड़कर और तारांकन (*) को छोड़कर यह मान लेगा कि वे एक टिप्पणी हैं। खैर, मुझे इस व्यवहार को एक बहुत ही सरल कार्यक्रम के साथ प्राप्त करने में समस्या हो रही है।

1  program test 
    2 
    3  integer dat1 
    4 
    5  open(unit=1,file="file.inp") 
    6 
    7  read(1,*) dat1 
    8 
    9 
10  end program test 

यह "file.inp" है: यह मेरा सरल फोरट्रान कार्यक्रम है

1 *Hello 
    2 1 

मैं

gfortran -g -o test test.f90 

जब मैं चलाने के साथ अपने साधारण प्रोग्राम बनाया है, मैं त्रुटि मिलती है :

At line 7 of file test.f90 (unit = 1, file = 'file.inp') 
Fortran runtime error: Bad integer for item 1 in list input 

जब मैं इनपुट फ़ाइल चलाता हूं wi वें टिप्पणी लाइन हटा दी गई, i.e .:

1 1 

कोड ठीक चलाता है। तो ऐसा लगता है कि फोरट्रान सही ढंग से उस टिप्पणी रेखा को समझने में एक समस्या है। यह कुछ बेहद सरल होना चाहिए जो मैं यहां लापता हूं, लेकिन मैं Google पर कुछ भी नहीं बदल सकता।

Answer 1

फोरट्रान स्वचालित रूप से इनपुट फ़ाइलों में टिप्पणियां लाइन नहीं छोड़ता है। आप स्ट्रिंग में लाइन को पहले पढ़ने, अपने टिप्पणी प्रतीक के लिए पहले अक्षर की जांच करके या उस प्रतीक के लिए स्ट्रिंग को खोजकर आसानी से पर्याप्त कर सकते हैं, फिर यदि रेखा कोई टिप्पणी नहीं है, तो स्ट्रिंग के "आंतरिक पढ़ने" संख्यात्मक मूल्य प्राप्त करें।

कुछ की तरह:

use, intrinsic :: iso_fortran_env 

character (len=200) :: line 
integer :: dat1, RetCode 

read_loop: do 
    read (1, '(A)', isostat=RetCode) line 
    if (RetCode == iostat_end) exit ReadLoop 
    if (RetCode /= 0) then 
     ... read error 
     exit ReadLoop 
    end if 
    if (index (line, "*") /= 0) cycle read_loop 
    read (line, *) dat1 
end do read_loop 

Answer 2

फोरट्रान जब तक आप namelists उपयोग कर रहे हैं, डिफ़ॉल्ट रूप से कुछ भी उपेक्षा नहीं करता है और उस मामले में टिप्पणी एक विस्मयादिबोधक चिह्न के साथ शुरू करते हैं।