fe4da5cc |
1 | * |
2 | * $Id$ |
3 | * |
4 | * $Log$ |
5 | * Revision 1.1.1.1 1996/02/15 17:50:06 mclareni |
6 | * Kernlib |
7 | * |
8 | * |
9 | #include "kerngen/pilot.h" |
10 | @PROCESS AUTODBL(NONE) |
11 | SUBROUTINE ADWRTK(LUN,IA,ND,ISW) |
12 | INTEGER IA(2*ND) |
13 | INTEGER ISW |
14 | * |
15 | WRITE(LUN,IOSTAT=ISW) (IA(J),J=1,2*ND) |
16 | END |