SUBROUTINE SEARCH ( NJ, I )
Argument Definitions (+ indicates altered content)
INTEGER            I,         +NJ
Description
Copyright (C) 1978 Charlotte Froese Fisher 
Copyright (C) 2012 Jacek Kobus 
 
 
The search subroutine searches for the largest nj for 
which yr is possitive
Source file:search.f
External Functions and Subroutines Called
INTEGER            MMAX
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +IA,        +IL,        +NK
Referenced Common Block Variables (+ indicates altered content)
MCOMMBLOCK         INTEGER            MAXV(MAXORB)
MCOMMBLOCK         REAL*8             YR(MAXNO)
PARAM              INTEGER            NO
PARAM1             REAL*8             D0