Google
 

Trailing-Edge - PDP-10 Archives - bb-4157j-bm_fortran20_v11_16mt9 - fortran-test/v7lib.for
There are 9 other files named v7lib.for in the archive. Click here to see a list.
	PROGRAM V7LIB

C COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1982, 1987
C ALL RIGHTS RESERVED.
C 
C THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
C ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
C INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
C COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
C OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
C TRANSFERRED.
C 
C THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
C AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
C CORPORATION.
C 
C DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
C SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

C CDM
C October 1981

C Test to link all the version 7 library routines from the 
C ANSII-77 standard.

C AHM	24-May-82
C Insert STOP statement to get execution over with quickly.

	CHARACTER CH
	COMPLEX C
	DOUBLE PRECISION D
	LOGICAL L
	INTEGER I
	REAL R

	STOP

	I=INT(I)
	I=INT(R)
	I=INT(D)
	I=INT(C)
	I=IFIX(R)
	I=IDINT(D)

	R=REAL(I)
	R=REAL(R)
	R=REAL(D)
	R=REAL(C)
	R=FLOAT(I)
	R=SNGL(D)

	D=DBLE(I)
	D=DBLE(R)
	D=DBLE(D)
	D=DBLE(C)

	C=CMPLX(I)
	C=CMPLX(R)
	C=CMPLX(D)
	C=CMPLX(C)

	I=ICHAR(CH)
	CH=CHAR(I)

	R=AINT(R)
	D=AINT(D)
	D=DINT(D)

	R=ANINT(R)
	D=ANINT(D)
	D=DNINT(D)

	I=NINT(R)
	I=NINT(D)
	I=IDNINT(D)

	I=ABS(I)
	R=ABS(R)
	D=ABS(D)
	C=ABS(C)
	I=IABS(I)
	D=DABS(D)
	C=CABS(C)

	I=MOD(I,I)
	R=MOD(R,R)
	D=MOD(D,D)
	R=AMOD(R,R)
	D=DMOD(D,D)

	I=SIGN(I,I)
	R=SIGN(R,R)
	D=SIGN(D,D)
	I=ISIGN(I,I)
	D=DSIGN(D,D)

	I=DIM(I,I)
	R=DIM(R,R)
	D=DIM(D,D)
	I=IDIM(I,I)
	D=DDIM(D,D)

	D=DPROD(R,R)

	I=MAX(I,I,I)
	R=MAX(R,R,R)
	D=MAX(D,D,D)
	I=MAX0(I,I,I)
	R=AMAX1(R,R,R)
	D=DMAX1(D,D,D)
	R=AMAX0(I,I,I)

	I=MIN1(R,R,R)
	I=MIN(I,I,I)
	R=MIN(R,R,R)
	D=MIN(D,D,D)
	I=MIN0(I,I,I)
	R=AMIN1(R,R,R)
	D=DMIN1(D,D,D)
	R=AMIN0(I,I,I)
	I=MIN1(R,R,R)

	I=LEN(CH)
	I=INDEX(CH,CH)

	R=AIMAG(C)
	C=CONJG(C)

	R=SQRT(R)
	D=SQRT(D)
	C=SQRT(C)
	D=DSQRT(D)
	C=CSQRT(C)

	R=EXP(R)
	D=EXP(D)
	C=EXP(C)
	D=DEXP(D)
	C=CEXP(C)

	R=LOG(R)
	D=LOG(D)
	C=LOG(C)
	D=DLOG(D)
	C=CLOG(C)

	R=LOG10(R)
	D=LOG10(D)
	D=DLOG10(D)

	R=SIN(R)
	D=SIN(D)
	C=SIN(C)
	D=DSIN(D)
	C=CSIN(C)

	R=COS(R)
	D=COS(D)
	C=COS(C)
	D=DCOS(D)
	C=CCOS(C)

	R=TAN(R)
	D=TAN(D)
	D=DTAN(D)

	R=ASIN(R)
	D=ASIN(D)
	D=DASIN(D)

	R=ACOS(R)
	D=ACOS(D)
	D=DACOS(D)

	R=ATAN(R)
	D=ATAN(D)
	D=DATAN(D)

	R=ATAN2(R,R)
	D=ATAN2(D,D)
	D=DATAN2(D,D)

	R=SINH(R)
	D=SINH(D)
	D=DSINH(D)

	R=COSH(R)
	D=COSH(D)
	D=DCOSH(D)

	R=TANH(R)
	D=TANH(D)
	D=DTANH(D)

	L=LGE(CH,CH)
	L=LGT(CH,CH)
	L=LLE(CH,CH)
	L=LLT(CH,CH)

	STOP 'Should not try to execute!'
	END