Trailing-Edge
-
PDP-10 Archives
-
BB-4157F-BM_1983
-
fortran/test/arrays.for
There are 11 other files named arrays.for in the archive. Click here to see a list.
PROGRAM ARRAYS
! This software is furnished under a license and may only be used
! or copied in accordance with the terms of such license.
! Copyright (C) Digital Equipment Corporation 1981, 1983
! Version 7 ARRAYS.FOR
! Basic test of arrays.
! Assignments are made to several arrays of different
! dimensions, then checked for their accuracy.
INTEGER IN(5),IIII(5,5)
REAL XX(5,5,5)
DOUBLE PRECISION DD(5)
DO 100 I=1,5 !Assignment
IN(I)=I
DD(I)=I+.0000000001
DO 200 J=1,5
IIII(I,J)=J+I
DO 300 K=1,5
XX(I,J,K)=IN(I)+K
300 CONTINUE
200 CONTINUE
100 CONTINUE
! Check assignments to the arrays
DO 500 I=1,5
IF (IN(I).NE.I) TYPE 710,I,IN(I),I
D=I+.0000000001
IF (DD(I).NE.(I+.0000000001)) TYPE 720,I,DD(I),D
DO 600 J=1,5
KK=J+I
IF (IIII(I,J).NE.KK) TYPE 730,I,J,IIII(I,J),KK
DO 700 K=1,5
KKK=IN(I)+K
IF (XX(I,J,K).NE.KKK) TYPE 740,
1 I,J,K,XX(I,J,K),KK
700 CONTINUE
600 CONTINUE
500 CONTINUE
710 FORMAT(' ?Error IN('I2')='I', should ='I2)
720 FORMAT(' ?Error DD('I2')='D', Should ='D)
730 FORMAT(' ?Error IIII('I2','I2')='I', should = 'I)
740 FORMAT(' ?Error DD('I2','I2','I2')='D', should = 'D)
STOP
END