1c     DRVECPR
2c>> 2006-04-02 DRVECPR Krogh Added checks with exponents.
3c>> 2001-05-22 DRVECPR Krogh Minor change for making .f90 version.
4c>> 1991-11-22 DRVECPR   Krogh Initial Code.
5c
6      integer LWIDTH, LUNIT, NUMDIG, N, I
7      parameter (LWIDTH=79)
8      parameter (LUNIT=0)
9      parameter (NUMDIG = 0)
10      parameter (N = 6)
11      integer A(N)
12      real B1(N), B2(N)
13      double precision C1(N), C2(N), C3(N)
14c
15      data (A(I),I=1,N) / 1,2,3,4,5,6 /
16      data (B1(I),I=1,N) / 1.E0,2.E0,3.E0,4.E0,5.E0,6.E0/
17      data (B2(I),I=1,N) / 1.E4,2.E-4,-3.E0,4.E0,5.E0,6.E0/
18      data (C1(I),I=1,N) / 1.D2,2.D0,3.D0,-4.D1,5.D0,6.D0 /
19      data (C2(I),I=1,N) / 1.D2,2.D0,3.D0,-4.D11,5.D0,6.D0 /
20      data (C3(I),I=1,N) / 1.D14,2.D1,-3.D100,4.D0,5.D0,6.D3/
21c
22      call IVECPR (A,N,'0 IVECPR.. A()=', LWIDTH, LUNIT)
23      call SVECPR (B1,N,'0 SVECPR.. B1()=', LWIDTH, LUNIT, NUMDIG)
24      call DVECPR (C1,N,'0 DVECPR.. C1()=', LWIDTH, LUNIT, NUMDIG)
25      call SVECPR (B2,N,'0 SVECPR.. B2()=', LWIDTH, LUNIT, NUMDIG)
26      call DVECPR (C2,N,'0 DVECPR.. C2()=', LWIDTH, LUNIT, NUMDIG)
27      call DVECPR (C3,N,'0 DVECPR.. C3()=', LWIDTH, LUNIT, NUMDIG)
28c
29      end
30