10 integer, dimension(20) :: info
11 call prininfo(15, info
)
12 end subroutine solve_ma41
14 subroutine prininfo (ni
, info
)
15 integer, intent(in
) :: ni
16 integer, intent(in
), dimension(:) :: info
26 write(*,'(i5,1x,i0)') i
, info(i
)
30 end subroutine prininfo