********************************************************************
GENERAL FIX -- ALL VERSIONS (CORRECTS PROBLEM IN $DEL DELETIONS)
********************************************************************
************
****** OLD NBO_50.SRC CODE
  270   C      SUBROUTINE UNPACK(T,NDIM,NBAS,NTRI)
  271   C      SUBROUTINE VALTBL(IAT,IVAL)
****** REPLACEMENT CODE
File $3DAYDISK:[44FAW.FAW]NBO_50.SRC;2
  270   C      SUBROUTINE UNPACK(T,NDIM,NBAS)
  271   C      SUBROUTINE VALTBL(IAT,IVAL)
************
************
****** OLD NBO_50.SRC CODE
17281         EXTERNAL PACK
17282         LOGICAL DONE,ERROR,EQUAL
******
****** REPLACEMENT CODE
17281         EXTERNAL PACK,UNPACK
17282         LOGICAL DONE,ERROR,EQUAL
************
************
****** OLD NBO_50.SRC CODE
17443         CALL NBDELE(A(N4),A(N5),NDIM,A(N7),NSQ,DONE,ISPIN,ISET)
17444   C
******
****** REPLACEMENT CODE
17443         CALL NBDELE(A(N4),A(N5),NNAO,NDIM,A(N7),NSQ,DONE,ISPIN,ISET)
17444   C
************
************
****** OLD NBO_50.SRC CODE
17491         CALL SIMTR1(A(N5),A(N3),A(N4),NDIM,NNAO,NNAO,NBAS)
17492         CALL SVNEWD(A(N5))
******
****** REPLACEMENT CODE
17491         CALL UNPACK(A(N5),NDIM,NNAO)
17492         CALL SIMTR1(A(N5),A(N3),A(N4),NDIM,NNAO,NNAO,NBAS)
17493         CALL PACK(A(N5),NDIM,NBAS)
17494         CALL SVNEWD(A(N5))
************
************
****** OLD NBO_50.SRC CODE
23639   C      SUBROUTINE UNPACK(T,NDIM,NBAS,NTRI)
23640   C      SUBROUTINE VALTBL(IAT,IVAL)
******
****** REPLACEMENT CODE
23641   C      SUBROUTINE UNPACK(T,NDIM,NBAS)
23642   C      SUBROUTINE VALTBL(IAT,IVAL)
************
********************************************************************
GENERAL FIX -- ALL VERSIONS (CORRECTS SR REDIAG ARGUMENT ERROR
AND FN OLAPCG PRECISION PROBLEM), MARCH 21, 2002
********************************************************************
************
****** OLD NBO_50.SRC CODE (IN SUBROUTINE NAO)
 8190         CALL REDIAG(S,T,BLK,OCC,SBLK,C,LISTAO,JPRINT(11),NNAO)
****** REPLACEMENT CODE (IN SUBROUTINE NAO)
 8190         CALL REDIAG(S,T,BLK,OCC,SBLK,C,LISTAO,JPRINT(11))
************
************
****** OLD NBO_50.SRC CODE (IN FUNCTION OLAPCG)
42052         REAL C1(3),C2(3)
****** REPLACEMENT CODE (IN FUNCTION OLAPCG)
42052         DIMENSION C1(3),C2(3)
************