CTITLE JSCNAC - JOBGEN REGION & BLANK COMMMON ALGORITHM FOR CNAC
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA
CA    AUTHOR             M. COADY AND J. V. S. HARVEY
CA    LANGUAGE           VS FORTRAN (77)
CA    SYSTEM             IBM ONLY
CA    REWRITTEN          01 DEC 1988
C     REVISED            01/26/89 JJC FOR SPARC PRODUCTION. REMOVED
C                                 COMMON LINCOM.
CA
CA
CA    THIS SUBROUTINE CALCULATES MEMORY REQUIREMENTS FOR CNAC
CA
CA
CA          CALL JSCNAC( KPNA,  KPRNO, OCCUR,
CA                       PSIZE, CSIZE, UCSIZE,
CA                       ERCODE )
CA
CA
CA    IN/OUT  ARGUMENT  TYPE  DESCRIPTION
CA
CA    IN      KPNA       CH4  PROCESS NAME
CA    IN      KPRNO       I4  PROCESS NUMBER
CA    IN      OCCUR       I4  OCCURRANCE NUMBER
CA
CA    OUT     PSIZE       I4  REGION SIZE OF PROGRAM IN K-BYTES
CA    OUT     CSIZE       I4  RESERVED BLANK COMMON SIZE IN WORDS
CA    OUT     UCSIZE      I4  UNRESERVED BLANK COMMON SIZE IN WORDS
CA
CA    OUT     ERCODE      I4  ERROR CODE
CA                               16 FOR PARAMETER CALC. ERROR
CA
CA**********************************************************************
CA
CA    JSCNAC IS AN EXTENSION OF SUBROUTINE JSRND.
CA
CA**********************************************************************
C
      SUBROUTINE JSCNAC( KPNA, KPRNO, OCCUR, PSIZE, CSIZE, UCSIZE,
     *                   ERCODE )
      IMPLICIT INTEGER (A-Z)
C
      EXTERNAL  FOIP
C               -------------------------------------------
C
C                 INTEGER CONSTANTS -- LOCAL
C
CCC   INTEGER FCF     /   1 /
      INTEGER IPR     /   6 /
      INTEGER THL     / 190 /
C======================================================================
C
C                         LOCAL SAVE AREA SIZE
C
      PARAMETER ( LLOCAL =  214 )
C----------------------------------------------------------------------
C
C                  MAXIMUM TIME-AXIS PLOTTING LENGTH
C
      REAL MAXLEN
      PARAMETER ( MAXLEN = 90.0 )
C----------------------------------------------------------------------
C
C                       PLOT DEALLOCATION WORK AREA
C
      PARAMETER ( PLTWRK = 8192 )
C===================================================================
C
C                    CHARACTER STRINGS -- LOCAL
C
      CHARACTER*80 CARD
      CHARACTER*4  KPNA
C
C***********************************************************************
C***                                                                ****
C***                          PROGRAM SIZE                          ****
C***                                                                ****
C***********************************************************************
C
C                       SET PROGRAM SIZE (KBYTE)
C
CCC   SPCNAC   =  18
C
CCC   SDCNAC   =  19  < 37>
C
CCC   SACCNAC  =  30  < 67>
CCC   SACNEWP  =   9  < 76>
CCC   SACISOC  =   4  < 80>
CCC   SACENDP  =   2  < 82>
C
CCC   SANSTAK  =   2  < 84>
CCC   SANPAVG  =   2  < 86>
CCC   SANEVAL  =   7  < 93>
CCC   ----------------------
CCC   TOTAL    =  93
C
      PSIZE = 150
C
C***********************************************************************
C***                                                                ****
C***                                                                ****
C***                                                                ****
C***********************************************************************
C
C                COMPUTE RESERVED BLANK COMMON SIZE IN WORDS
C
      CSIZE  = 4000000
C======================================================================
C
C                COMPUTE UNRESERVED BLANK COMMON SIZE IN WORDS
C
      UCSIZE = 4000000
C======================================================================
C
C                            OUTPUT RESULTS
C
CCC   WRITE( IPR, 8900 ) PSIZE, CSIZE, UCSIZE
      RETURN
C
C***********************************************************************
C***                                                                ****
C***                      FORMAT STATEMENTS                         ****
C***                                                                ****
C***********************************************************************
C
C                              OUTPUT
C
C8900 FORMAT('0CNAC ALLOCATION:  PSIZE = ',I5,'  CSIZE = ',I10,
CCC  *       '  UCSIZE = ',I10)
      END