subroutine summ_rpt_proc_prob_descr_rec (pdrNo, probDescrRec, rptLun, localrc)
integer, intent(in) :: pdrNo
type(problem_descriptor_records), intent(in) :: probDescrRec
integer, intent(in) :: rptLun
integer, intent(out) :: localrc
integer :: PdsCnt
integer :: PdsNo
write (rptLun, 9001)
write (rptLun, 9012) pdrNo
write (rptLun, 9010) trim(probDescrRec%filename)
PdsCnt = probDescrRec%numStrings
write (rptLun, 9011) PdsCnt
do PdsNo = 1, PdsCnt
call summ_rpt_proc_prob_descr_string (PdsNo, probDescrRec%str(PdsNo), rptLun, localrc)
end do
write (rptLun, 9002)
localrc = ESMF_SUCCESS
90 continue
9001 FORMAT (' <ProbDescRec>')
9002 FORMAT (' </ProbDescRec>')
9010 FORMAT (' <Filename>', A, '</Filename>')
9011 FORMAT (' <PdsCnt>', I3, '</PdsCnt>')
9012 FORMAT (' <PdrNo>', I4, '</PdrNo>')
end subroutine summ_rpt_proc_prob_descr_rec