CTITLEFJSETP -- SPARC MASTER PROCESS TABLE SETUP 00010000 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** CA AUTHOR DANIEL POLAK 00020000 CA DESIGNER DANIEL POLAK 00030000 CA LANGUAGE VSFORTRAN 00040000 CA SYSTEM IBM AND CRAY 00050004 CA WRITTEN 04-29-87 00060000 CA REVISED 06-05-87 DPH. MODIFIED DATA STATEMENTS FOR CRAY. 00070003 CA 00080000 CA 00090000 CA CALL FJSETP (KPNA, JSKEY, COMP, MAXT, PREP, PROC, BCOM, KPDBG, 00100001 CA KPDRTF, KPLOTF, KPMITF, KPTAMF, * STMT) 00110000 CA 00120000 CA IN/OUT ARGUMENT TYPE DESCRIPTION 00130000 CA 00140000 CA IN KPNA CH4 PROCESS NAME 00150000 CA IN JSKEY CH4 FIRST TWO CHARACTERS = JUSTIFICATION KEY 00160000 CA SECOND TWO CHARACTERS = SORT KEY 00170000 CA IN COMP CH4 COMPUTER DESIGNATION 00180000 CA 'I' = IBM 00190000 CA 'C' = CRAY 00200000 CA 'D' = DEC 00210000 CA IN MAXT I4 MAXIMUM NUMBER OF TIMES PROCESS MAY APPEAR00220001 CA ON PROC CARD 00230001 CA IN PREP I4 PREP MODULE FLAG: 0 = NONE, 1 = EXISTS 00240000 CA IN PROC I4 PROC MODULE FLAG: 0 = NONE, 1 = EXISTS 00250000 CA IN BCOM I4 STORAGE FOR BLANK COMMON IN KBYTES, 00260000 CA 0 = CALCULATE IN JSCORE 00270000 CA IN KPDBG I4 INPUT/OUTPUT FLAG 00280000 CA 0 = NONE 00290000 CA 1 = INPUT FOR PROCESSING STEP 00300000 CA 2 = OUTPUT FOR PROCESSING STEP 00310000 CA 3 = INPUT FOR PREPARATION STEP 00320000 CA IN KPDRTF I4 DEFAULT VALUE FOR KPRTF 00330000 CA IN KPLOTF I4 FLUSH FLAG 00340000 CA IN KPMITF I4 MORE INPUT FLAG 00350000 CA IN KPTAMF I4 TRACE ARRAY MANAGER FLAG 00360001 CA 00370000 CA 00380000 CA THIS SUBROUTINE PLACES THE SPARC MASTER PROCESS TABLE INFORMATION 00390000 CA INTO NAMED COMMON. 00400000 CA 00410000 C 00420000 SUBROUTINE FJSETP (KPNA, JSKEY, COMP, MAXT, PREP, PROC, BCOM, 00430001 * KPDBG, KPDRTF, KPLOTF, KPMITF, KPTAMF, *) 00440001 C 00450000 IMPLICIT INTEGER (A-Z) 00460000 C 00470000 PARAMETER (IPR=98, MXPROC=250) 00480005 C 00490000 COMMON /MPTABI/ NPTAB, PTABI(14, 250) 00500001 COMMON /MPTABC/ PTABC(5, 250) 00510001 C 00520000 C COMMON ARRAYS 00530000 C 00540000 CHARACTER*4 PTABC 00550000 INTEGER PTABI 00560000 C 00570000 C CHARACTER VARIABLES 00580000 C 00590000 CHARACTER*4 BLANK 00600002 CHARACTER*4 COMP 00610001 CHARACTER*4 JSKEY 00620000 CHARACTER*4 KPNA 00630000 C 00640002 DATA BLANK /' '/ 00650002 C 00660000 C SET THE ARRAY DIMENSIONS 00670000 C 00680000 C 00690000 C***********************************************************************00700000 C 00710000 C MASTER PROCESS TABLE DEFINITION 00720000 C 00730000 C***********************************************************************00740000 C 00750000 C PTABC(1, J) = PROCESS NAME 00760001 C PTABC(2, J) = JUSTIFICATION/SORT KEY 00770001 C PTABC(3, J) = COMPUTER CODE 00780001 C PTABC(4, J) = FUTURE USE 00790001 C PTABC(5, J) = FUTURE USE 00800001 C 00810001 C PTABI(1, J) = 0 FOR NO PREP, 1 FOR PREP 00820001 C PTABI(2, J) = 0 FOR NO PROC, 1 FOR PROC 00830001 C PTABI(3, J) = BLANK COMMON REQUIREMENT 00840001 C PTABI(4, J) = MAXT 00850001 C PTABI(5, J) = KPDBG 00860001 C PTABI(6, J) = KPDRTF 00870001 C PTABI(7, J) = KPLOTF 00880001 C PTABI(8, J) = KPMITF 00890001 C PTABI(9, J) = KPTAMF 00900001 C PTABI(10,J) = FUTURE USE 00910001 C PTABI(11, J) = FUTURE USE 00920001 C PTABI(12, J) = FUTURE USE 00930001 C PTABI(13, J) = FUTURE USE 00940001 C PTABI(14, J) = FUTURE USE 00950001 C 00960000 NPTAB = NPTAB + 1 00970000 C 00980000 IF (NPTAB .GT. MXPROC) THEN 00990005 WRITE (IPR, 9000) MXPROC 01000000 RETURN 1 01010000 END IF 01020005 C 01030000 PTABC(1, NPTAB) = KPNA 01040000 PTABC(2, NPTAB) = JSKEY 01050000 PTABC(3, NPTAB) = COMP 01060000 PTABC(4, NPTAB) = BLANK 01070001 PTABC(5, NPTAB) = BLANK 01080001 C 01090001 PTABI(1, NPTAB) = PREP 01100000 PTABI(2, NPTAB) = PROC 01110000 PTABI(3, NPTAB) = BCOM 01120000 PTABI(4, NPTAB) = MAXT 01130001 PTABI(5, NPTAB) = KPDBG 01140001 PTABI(6, NPTAB) = KPDRTF 01150001 PTABI(7, NPTAB) = KPLOTF 01160001 PTABI(8, NPTAB) = KPMITF 01170001 PTABI(9, NPTAB) = KPTAMF 01180001 PTABI(10,NPTAB) = 0 01190001 PTABI(11,NPTAB) = 0 01200001 PTABI(12,NPTAB) = 0 01210001 PTABI(13,NPTAB) = 0 01220001 PTABI(14,NPTAB) = 0 01230001 C 01240000 RETURN 01250000 C 01260000 C FORMAT STATEMENT 01270000 C 01280000 9000 FORMAT (/1X,'*** FJSETP ERROR *** THE MAXIMUM NUMBER OF PROCESS', 01290000 * 'ES',I5,' HAS BEEN EXCEEDED.',/1X,'INCREASE THE SIZE OF', 01300000 * ' THE MXPROC VARIABLE') 01310000 END 01320000