C*MODULE NEO     *DECK NEOCAL
      SUBROUTINE NEOCAL(RUNTYP)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      WRITE(6,*) 'NEO RUNS ARE NOT ENABLED'
      CALL ABRT
      WRITE(6,9000) RUNTYP
 9000 FORMAT(1X,'POINTLESS WRITE TO SUPPRESS FTNCHEK MESSAGES'/
     *       1X,A8)
C
      RETURN
      END
C
*MODULE NEO     *DECK NEOINP
      SUBROUTINE NEOINP(IRET)  
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      IRET = 0
C
      RETURN
      END
C
C*MODULE NEO     *DECK NEOSET
      SUBROUTINE NEOSET
C     
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
C     
      WRITE(6,*) 'NEO RUNS ARE NOT ENABLED'
      CALL ABRT
C
      RETURN
      END
C
*MODULE NEOHF   *DECK NEOHF
      SUBROUTINE NEOHF(H1E,FAE,DAE,FBE,DBE,DFDAE,DFDBE,SCR,SCR2,
     &                 ADDE,L0,L1,L2,L3,ICNT,EHFEL,ITER,EN)
C
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      DIMENSION H1E(*),FAE(*),DAE(*),FBE(*),DBE(*),DFDAE(*),DFDBE(*),
     *          SCR(*),SCR2(*),ADDE(*)
C     
      WRITE(6,*) 'NEO RUNS ARE NOT ENABLED'
      CALL ABRT
      EHFEL = EN
      WRITE(6,9000) H1E(1),FAE(1),DAE(1),FBE(1),DBE(1),
     *              DFDAE(1),DFDBE(1),SCR(1),SCR2(1),ADDE(1),
     *              L0,L1,L2,L3,ICNT,ITER
 9000 FORMAT(1X,'POINTLESS WRITE TO SUPPRESS FTNCHEK MESSAGES'/
     *       1X,5F12.5/1X,5F12.5/
     *       1X,'LS=',4I6,' ICNT,ITER=',2I4)
C
      RETURN
      END
C
C*MODULE NEO     *DECK NMOOUT
      SUBROUTINE NMOOUT(MPUNCH)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      WRITE(6,*) 'NEO RUNS ARE NOT ENABLED'
      CALL ABRT
      WRITE(6,9000) MPUNCH
 9000 FORMAT(1X,'POINTLESS WRITE TO SUPPRESS FTNCHEK MESSAGES'/
     *       1X,I5)
C
      RETURN
      END
C
*MODULE NEOSYM  *DECK NEOSYM
      SUBROUTINE NEOSYM(GAM,CHARR,TRACEP,TRACED,TRACEF,TRACEG)
C
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      DIMENSION GAM(*),CHARR(*),TRACEP(*),TRACED(*),TRACEF(*),TRACEG(*)
C
      WRITE(6,*) 'NEO RUNS ARE NOT ENABLED'
      CALL ABRT
      WRITE(6,9000) GAM(1),CHARR(1),TRACEP(1),
     *              TRACED(1),TRACEF(1),TRACEG(1)
 9000 FORMAT(1X,'POINTLESS WRITE TO SUPPRESS FTNCHEK MESSAGES'/
     *       1X,7F12.5)
C
      RETURN
      END
C
