From:	CRDGW2::CRDGW2::MRGATE::"SMTP::FALCON::TNIELAND" 22-JUN-1989 17:03
To:	MRGATE::"ARISIA::EVERHART"
Subj:	CHECK_PASS in [.NIELAND.CHECKPASS] in VAX89A

Message-Id:  <8906221810.AA29379@crdgw1.ge.com>
Received: from FALCON by AAMRL.AF.MIL; Thu, 22 Jun 89 14:07 EDT
Date: Thu, 22 Jun 89 14:09 EST
From: Ted Nieland - SRL <@AAMRL.AF.MIL:TNIELAND@FALCON>
Subject: CHECK_PASS in [.NIELAND.CHECKPASS] in VAX89A
To: everhart@arisia.decnet
X-Vms-To: IN%"everhart%arisia.decnet@crd.ge.com"

Glenn,

	One of my reviewers found a problem with the CHECK_PASS program I 
submitted.   The program works fine when compiled and linked under VMS 4.7 and 
FORTRAN 4.8, but if you compile and link under VMS 5.1 and FORTRAN 5.2 it has 
problems (the system is more picky).

	Anyway, here are the diffs to get it working again.  I know it's to 
late for the tape, but I thought you might like them anyway.

Ted





************
File DUB3:[TNIELAND.TESTPASS]CHECK_PASS.FOR;52
   78         IMPLICIT NONE
   79         INTEGER*2  U , P
******
File DUA6:[VAX89A.NIELAND.CHECKPASS]CHECK_PASS.FOR;1
   78         INTEGER*2  U , P
************
************
File DUB3:[TNIELAND.TESTPASS]CHECK_PASS.FOR;52
   83         INTEGER LENSTR, MIN_PASS, I, MAX, STAT, SYS$GETUAI, LEN
   84   C
******
File DUA6:[VAX89A.NIELAND.CHECKPASS]CHECK_PASS.FOR;1
   82         INTEGER LENSTR, MIN_PASS, I, MAX, STAT
   83   C
************
************
File DUB3:[TNIELAND.TESTPASS]CHECK_PASS.FOR;52
  157         I = I + 1
******
File DUA6:[VAX89A.NIELAND.CHECKPASS]CHECK_PASS.FOR;1
  156   
  157         I = I + 1
************
************
File DUB3:[TNIELAND.TESTPASS]CHECK_PASS.FOR;52
  382         IMPLICIT NONE
  383         INTEGER*2 U, P, T, STAT
  384         CHARACTER PASS*32
  385         INTEGER CPASS1(2) , CPASS2(2) , ECN(2), LGI$HPWD
  386         INCLUDE '($UAIDEF)'
******
File DUA6:[VAX89A.NIELAND.CHECKPASS]CHECK_PASS.FOR;1
  382         INTEGER*2 U, P, T, STAT
  383         CHARACTER PASS*32
  384         DIMENSION CPASS1(2) , CPASS2(2) , ECN(2)
  385         INCLUDE '($UAIDEF)'
************

Number of difference sections found: 4
Number of difference records found: 7

DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=DUB3:[TNIELAND.TESTPASS]DIFF.LIS;1-
    DUB3:[TNIELAND.TESTPASS]CHECK_PASS.FOR;52-
    DUA6:[VAX89A.NIELAND.CHECKPASS]CHECK_PASS.FOR;1
