Google
 

Trailing-Edge - PDP-10 Archives - BB-D480G-SB_FORTRAN10_V11.0_short - lib.for
There are 11 other files named lib.for in the archive. Click here to see a list.
	PROGRAM LIB

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

!	Version 6	LIB.FOR	March 81

C	Test to see if all intrinsic funtions an Fortran supplied
C	subroutines exist.  If they don't the LINK-er will complain.

	DOUBLE PRECISION D,D2(2)
	COMPLEX C,C2(2)
C
	STOP   ! We don't really want to execute.
C
 1000	CALL CHKDIV(I)
	CALL CLRFMT(C2)
	CALL DATE(II)
	CALL DIVERT(I,I)
	CALL DUMP(I,I,I)
	CALL ERRSET(I,I,I)
	CALL ERRSNS(I,I)
	CALL EXIT
	CALL ILL
	CALL LEGAL
	CALL LSNGET(I,I)
	CALL OVERFL
	CALL PDUMP(I,I,I)
	CALL SAVFMT(II,I)
	CALL SAVRAN(I)
	CALL SETRAN(I)
	CALL TIME(I,I)
	CALL TRACE
	CALL SLITET
	CALL SLITE
	CALL SSWTCH

	CALL AXIS  ! Plot routines
	CALL LINE
	CALL MKTBL
	CALL NUMBER
	CALL PLOT
	CALL PLOTS
	CALL SCALE
	CALL SETABL
	CALL SYMBOL
	CALL WHERE
! INTRINSIC FUNCTIONS
	X=ABS(X)
	I=IABS(I)
	D=DABS(D)
	C=CABS(C)
	X=FLOAT(I)
	I=IFIX(X)
	X=SNGL(D)
	X=DBLE(X)
	X=DFLOAT(I)
	X=REAL(C)
	X=AIMAG(C)
	C=CMPLX(X,X)
	X=AINT(X)
	I=INT(X)
	I=IDINT(D)
	X=AMOD(X,X)
	X=MOD(X,X)
	X=DMOD(D,D)
	X=AMAX0(I,I)
	X=AMAX1(X,X)
	X=MAX0(I,I)
	X=DMAX1(D,D)
	I=MAX1(X,X)
	X=AMIN0(I,I)
	X=AMIN1(X,X)
	X=MIN0(I,I)
	X=MIN1(X,X)
	X=DMIN1(D,D)
	X=SIGN(X,X)
	X=ISIGN(I,I)
	X=DSIGN(D,D)
	X=DIM(X,X)
	X=IDIM(I,I)

! Basic external functions

	X=EXP(X)
	X=DEXP(D)
	X=CEXP(C)
	X=CDEXP(C2,C2)
	X=ALOG(X)
	X=ALOG10(X)
	X=DLOG(D)
	X=DLOG10(D)
	X=CLOG(C)
	X=SQRT(X)
	X=DSQRT(D)
	X=CSQRT(C)
	X=SIN(X)
	X=SIND(X)
	X=DSIN(D)
	X=CSIN(C)
	X=COS(X)
	X=COSD(X)
	X=DCOS(D)
	X=CCOS(C)
	X=TAN(X)
	X=COTAN(X)
	X=DTAN(D)
	X=DCOTAN(D)
	X=SINH(X)
	X=DSINH(D)
	X=COSH(X)
	X=DCOSH(D)
	X=TANH(X)
	X=DTANH(D)
	X=ASIN(X)
	X=DASIN(D)
	X=ACOS(X)
	X=DACOS(D)
	X=ATAN(X)
	X=DATAN(D)
	X=ATAN(X)
	X=DATAN(D)
	X=ATAN2(R,R)
	X=DATAN2(D,D)
	X=CONJG(C)
	X=RAN(X)
	X=TIM2GO(0)
	X=CDABS(D2)
	X=CDEXP(C2,C2)
	X=CDLOG(C2,C2)
	X=CDLOG(C2,C2)
	X=CDSQRT(C2,C2)

	END