fdf_readlabel Function

private recursive function fdf_readlabel(nelem, plabel, filein, found) result(readlabel)

Arguments

Type IntentOptional Attributes Name
integer(kind=ip) :: nelem
type(parsed_line), pointer :: plabel
character(len=*) :: filein
logical :: found(nelem)

Return Value logical


Contents