5 * Revision 1.1.1.1 1996/02/15 17:49:28 mclareni
9 #include "kerngen/pilot.h"
10 SUBROUTINE TOSLAT (IVEC,N)
12 C CERN PROGLIB# TOSLAT .VERSION KERNFOR 4.33 920511
14 C Fortran interface to copy a vector from a C routine into /SLATE/
15 C On Apollo it is at the moment not possible to access a
16 C Fortran COMMON from C
18 COMMON /SLATE/ISLAT(40)
20 CALL UCOPY (IVEC, ISLAT, N)