program main
       implicit none
       real x, y, z
       integer i, j, k
       character a, b
       call subr(a, b, i, j, x, y, z)
       stop
       end
       subroutine subr(aa, bb, ii, jj, xx, yy, zz)
       implicit none
       real xx, yy, zz
       integer ii
       character aa
       return
       end