我對Fortran 95的一個非常可怕的錯誤:的Fortran模塊版本致命錯誤
Fatal Error: While reading module 'list5.mod' found module version 0, expected 6
我已經包括了我的模塊的主要結構。我非常懷疑它與我的模塊內的物質有什麼關係,因爲它給了我錯誤信息,並且我已經能夠修復它們,這意味着它能夠通過我的模塊,它只是一些與我使用模塊的方式。也許?
MODULE list5
IMPLICIT NONE
CONTAINS
----
END MODULE
主要方案的結構是這樣的:
PROGRAM mainlist
USE list5
IMPLICIT NONE
!Variable Declaration
INTEGER:: opt
INTEGER, PARAMETER:: maxitems=50
INTEGER:: size=0
CHARACTER(20):: itemarray(50)
INTEGER:: quantityarray(50)
INTEGER:: totalquantity, i=0
REAL:: totalprice=0, pricearray(50)=0
CHARACTER(20), DIMENSION(:)::Item
CHARACTER(20):: ItemSought
LOGICAL:: Found
INTEGER:: Location
INTEGER:: NumItems=0, SmallestItem=0
!Select statement for the menu
DO
opt=choices()
SELECT CASE (opt)
CASE(1)
size=size+1
CALL getItemData(itemarray,pricearray,quantityarray)
CASE(2)
CALL getFileItems(size,itemarray,pricearray,quantityarray)
CASE(3)
CALL pickItemRandomly (size)
CASE(4)
CALL calcListTotals
(pricearray,quantityarray,totalprice,totalquantity)
CALL printList(size,itemarray,pricearray,quantityarray,totalprice, totalquantity)
CASE(5)
CALL sortByItem(itemarray, pricearray, quantityarray)
CASE(6)
CALL sortByPrice(itemarray, pricearray, quantityarray)
CASE(7)
CALL writeListtoFile(size,itemarray, pricearray, quantityarray)
CASE(8)
CALL search(itemarray, ItemSought, Found, Location)
CASE(9)
STOP
END SELECT
END DO
END PROGRAM
在所有任何建議?我真的需要解決這個問題,所以任何幫助將不勝感激。非常感謝!!
我無法從給定的數據,自然繁殖,但是從我GOOGLE了,好像(順便說一句,你使用的是什麼編譯器,G95?)當使用不同版本的編譯器的出現這個錯誤。一些鏈接可能有一些相關性。 http://forum.wrfforum.com/viewtopic.php?f=20&t=1205 http://www.docstoc.com/docs/37887247/Athena-Knowledge-Base – Rook 2011-04-18 01:25:54
可能必須通過在文檔向下滾動了一下第二個。 – Rook 2011-04-18 01:27:11
@Rook是的,我用G95 – EuropaDust 2011-04-18 01:34:00