목차
없음
본문내용
program List
dimension name(15)
dimension phone(15)
Readfile(name, phone)
Insert(name, phone)
PrintList(name, phone)
stop
end
**********************************
subroutine Readfile(name,phone)
name(1)='Aker'
name(2)='Clay'
write(*,*) name(1), name(2)
return
end
dimension name(15)
dimension phone(15)
Readfile(name, phone)
Insert(name, phone)
PrintList(name, phone)
stop
end
**********************************
subroutine Readfile(name,phone)
name(1)='Aker'
name(2)='Clay'
write(*,*) name(1), name(2)
return
end
소개글