demo Program

Uses

Contents

Variables

i j ierr errmsg p7_6_real

Subroutines

chapter_select chapter_selected problem_select program_start program_end to_continue

Variables

Type	Attributes		Name		Initial
integer		::	i	=	0
integer		::	j	=	0
integer		::	ierr
character(len=100)		::	errmsg
real		::	p7_6_real	=	1.0

Subroutines

subroutine chapter_select()

Arguments

None

subroutine chapter_selected(chp)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	chp

subroutine problem_select()

Arguments

None

subroutine program_start()

Arguments

None

subroutine program_end()

Arguments

None

subroutine to_continue()

Arguments

None