SUBROUTINE BATCH_S ( LU, MODEL, FILEIN, ICIRCUIT, * )

Argument Definitions (+ indicates altered content)
CHARACTER*(*)      FILEIN
CHARACTER*6        MODEL
INTEGER           +ICIRCUIT,   LU
Description
New special BATCH method that takes a standard IONCAP input 
deck and runs each circuit separately. 
lu = file unit open of IONCAP full input deck 
model = VOACAP or ICEPAC 
filein = file to create the input data on 
icircuit = circuit number to be processed 
* = alternate return when done or if error occurs
Source file:batch_s.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
     LU                   SEQ  FMTD          R   
      *                   SEQ  FMTD           W  
               31         SEQ  FMTD         O W  
               31         SEQ          A         
               31                         C      
     LU                                   C      

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
External Functions and Subroutines Called
INTEGER            LENCHAR
Local Variables (+ indicates altered content)
CHARACTER*80      +ALF
INTEGER           +I,         +NCH,       +NCH_RUN,   +NEW
Referenced Common Block Variables (+ indicates altered content)
CANTENNA_DECK      CHARACTER*80      +ANTENNAS(22)
CANTENNA_DECK      INTEGER           +NANTENNAS
CARD_DECK          CHARACTER*80      +CARDS(50)
CARD_DECK          INTEGER           +NCARDS
CRUN_DIRECTORY     CHARACTER*50       RUN_DIRECTORY