c Evgenii B. Rudnyi, http://Evgenii.Rudnyi.Ru
      subroutine test(str, adbl, dbl, aint, int)
      character*4 str
      double precision adbl(4), dbl
      integer aint(4), int
      print *, 'str ', str
      print *, 'dbl ', dbl
      print *, 'int ', int
      print *, 'adbl ', (adbl(i), i = 1, 4)
      print *, 'aint ', (aint(i), i = 1, 4)
      return
      end