Lines Matching defs:s1

3 subroutine s1  subroutine
4   type :: t1
7   type(t1) :: t1x
10   type :: t2
14   type(t2) :: t2x
16   integer :: ja = 888
19   integer :: a1(10)
22   integer :: a2(10)
25   integer :: a3(2)
28   integer :: a4(3)
31   integer :: a5(3)
34   interface
39   real, pointer :: rp
42   procedure(rfunc), pointer :: rpp
43   real, target :: rt
51   integer :: jx, jy