یادی از کلاس های فورترن آندره لگارا - 1385

فایل شجره ای حاوی شماره دام، شماره پدر، شماره مادر و سال تولد به صورت زیر ایجاد کنید:

SAR145SAR001SAR9831999

برنامه ای بنویسید که شماره دامها  و سال تولد را  به شکل متغیرهای جدا بخواند. 

جواب

rogram pedigree
implicit none
character(6)::ID,IDsire,IDdam
integer::year

open(2,file='/xxxx/pedig.txt') ! data file

read(2,'(a6,a6,a6,i4)')ID,IDsire,IDdam,Year
open(3,file='/xxxx/pedig2.txt') ! where results must be writed
write(3,*)ID,year

end