Lines Matching defs:s
6 subroutine s(var) subroutine
18 double precision :: doublevar1 = 4.0E6_4 argument
19 double precision :: doublevar2 = 4.0D6 argument
20 double precision :: doublevar3 = 4.0Q6 argument
21 double precision :: doublevar4 = 4.0D6_8 argument
22 double precision :: doublevar5 = 4.0Q6_16 argument
23 double precision :: doublevar6 = 4.0E6_8 argument
24 double precision :: doublevar7 = 4.0E6_10 argument
25 double precision :: doublevar8 = 4.0E6_16 argument
27 double precision :: doublevar9 = 4.0E6_32 argument
28 end subroutine s argument