fe4da5cc |
1 | * |
2 | * $Id$ |
3 | * |
4 | * $Log$ |
5 | * Revision 1.1.1.1 1996/04/01 15:01:45 mclareni |
6 | * Mathlib gen |
7 | * |
8 | * |
9 | #include "gen/pilot.h" |
10 | SUBROUTINE U100DV (J,K,L) |
11 | DIMENSION J(40), K(40), L(40) |
12 | DO 1 LL=1,40 |
13 | 1 L(LL)=J(LL)-K(LL) |
14 | RETURN |
15 | END |