part 1
program class1
implicit none
real:: Note,Number
integer::Recn
character(len=10):: Name
open (unit=1,file="class1.dat",access="direct",&
status="replace",action="readwrite",recl=45,&
form="formatted")
Previous slide
Next slide
Back to first slide
View graphic version