PDP-10 Archive: uetp/lib/pas1f.for from BB-P557A-BM

Trailing-Edge - PDP-10 Archives - BB-P557A-BM_1983 - uetp/lib/pas1f.for

There are no other files named pas1f.for in the archive.

C	<PASCAL.UETP>PAS1F.FOR.3, 27-Dec-82 11:22:16, Edit by PROBINSON
C	Fix value of double to return what's expected
C	<PASCAL.UETP>PAS1F.FOR.2, 27-Dec-82 10:15:11, Edit by PROBINSON
C	Remove booleans - Fortran and Pascal are too different
C<KOHLBRENNER.TST>PAS1F.FOR.3 19-Aug-81 09:05:00, Edit by KOHLBRENNER
C	COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
      subroutine fortst(int,rel,dob)
      real rel
      double precision dob
      integer int
      if (int.ne.27) go to 20
      int = 28
20    if (rel.ne.2.15) go to 30
      rel = 3.15
30    if (dob.ne.2.12345) go to 40
      dob = 3.122324323D00
40    return
      end