5 ! Contributed by Jos de Kloe
9 integer, parameter :: GRH_SIZE
= 20, NMAX
= 41624
12 character :: mdr(NMAX
)
15 subroutine sub2(string
,str_size
)
16 integer,intent(in
) :: str_size
17 character,intent(out
) :: string(str_size
)
21 type(strtype
),intent(inout
) :: a
22 call sub2(a
%mdr(GRH_SIZE
+1),a
%size
-GRH_SIZE
)