SUBROUTINE START ( I, V0, P1X, P2X )
Argument Definitions (+ indicates altered content)
INTEGER            I
REAL*8            +P1X,       +P2X,        V0
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
The start subroutine computes the starting values used to solve a 
ODE (see solve)
Source file:start.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
      *                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
REAL*8            +A,         +B,         +DLI,       +VV
REAL*8            +ZR
Referenced Common Block Variables (+ indicates altered content)
DEBUG              INTEGER            IDBG(100)
MCOMMBLOCK         REAL*8             R(MAXNO),  R2(MAXNO)
MCOMMBLOCK         REAL*8             RR(MAXNO)
PARAM1             REAL*8             D1,        D2
REL                REAL*8             DLR(MAXORB)
REL                REAL*8             Q0(MAXORB)
REL                REAL*8             ZRL(MAXORB)
WAVE               REAL*8             AZD,       ED