Lines Matching defs:s1

3 subroutine s1  subroutine
4   type :: t1
7   type(t1) :: t1x
10   integer :: ja = 888
13   integer :: a1(10)
16   integer :: a2(10)
19   integer :: a3(2)
22   integer :: a4(3)
25   interface
30   real, pointer :: rp
33   procedure(rfunc), pointer :: rpp
34   real, target :: rt
41   integer :: jx, jy