1      SUBROUTINE YLAGTS( JOB, N, A, B, C, D, IN, Y, TOL, INFO )
2      implicit none
3#include "y64.fh"
4c
5* $Id$
6c
7      INTEGER            INFO, JOB, N
8      DOUBLE PRECISION   TOL
9*     ..
10*     .. Array Arguments ..
11      INTEGER            IN( * )
12      DOUBLE PRECISION   A( * ), B( * ), C( * ), D( * ), Y( * )
13c
14      INTGR4            job4, INFO4, N4,IN4(N)
15      integer i
16c
17      n4=n
18      job4=job
19      do i=1,n
20         in4(i)=in(i)
21      enddo
22      call DLAGTS( JOB4, N4, A, B, C, D, IN4, Y, TOL, INFO4 )
23      info=info4
24      return
25      end
26