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