fe4da5cc |
1 | * |
2 | * $Id$ |
3 | * |
4 | * $Log$ |
5 | * Revision 1.1.1.1 1996/04/01 15:03:29 mclareni |
6 | * Mathlib gen |
7 | * |
8 | * |
9 | #include "gen/pilot.h" |
10 | #if (defined(CERNLIB_QF2C))&&(!defined(CERNLIB_LINUX)) |
11 | SUBROUTINE GCMPLX(A,X,Y) |
12 | DOUBLE PRECISION X,Y,A(2) |
13 | A(1)=X |
14 | A(2)=Y |
15 | END |
16 | #endif |