SUBROUTINE SETCONST ( )
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
Set some constants.
Source file:setconst.f
Intrinsic Functions Called
GENERIC*8          ATAN
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +I,         +I4TMP1,    +I8TMP1,    +I8TMP2
INTEGER           +LENGTHFP,  +LENGTHINT
REAL*8            +O
Referenced Common Block Variables (+ indicates altered content)
CONST              REAL*8            +CVEL,      FOUR
CONST              REAL*8             ONE,      +PII
CONST              REAL*8            +PRECIS,    TWO