CTITLECPSPCL -- FOREGROUND PREP ROUTINE TO CALL EACH PROCESS 00010000 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** CA AUTHOR RALPH MCMILLAN 00020000 CA DESIGNER RALPH MCMILLAN 00030000 CA LANGUAGE VS FORTRAN 00040000 CA SYSTEM IBM 00050000 CA WRITTEN 07-10-86 00060000 C REVISED 10-07-86 REM. ADD CALL TO SPPICK 00070000 C REVISED 03-17-87 MJM. ADD CALL TO SPVCOR 00080000 C REVISED 03-23-87 RSH. ADD CALLS TO DMFK, KMIG, MI3D, STOC. 00090000 C REVISED 04-15-87 RDK. ADD CALL TO TDIF. 00100000 C REVISED 05-26-87 CMP. ADD CALLS TO HPLT, LITH, SWAT; 00110000 C REVOVE CALLS TO COVA, COVE, MG3D, MIGR, 00120000 C M345, RANL 00130000 C REVISED 06-09-87 DJP. ADD CALLS TO GEOM, GM3D, NINA AND VF3D, RE-00140000 C MOVED THE WARNING PRINT AND RENAMED FROM 00150000 C FSCALL TO CPSPCL. 00160000 C REVISED 09-23-87 REP. ADD CALL TO AIED. 00170000 C REVISED 10-27-87 RDK. REMOVE ARCHIVED SPARCD PROCESSES: ALGN, 00180000 C DD3D, LWSA, NMOD, RFST, RTQC, TXGF, TXMP. 00190000 C MOVE TDIF FROM SPARCD TO PRODUCTION SEC- 00200000 C TION. 00210000 C REVISED 12-14-87 RDK. ADD MTCA. 00220000 C REVISED 01-05-88 PKC. ADD STKP. 00230000 C REVISED 01-06-88 ESN. ADD SM3D. 00240000 C REVISED 03-14-88 ESN. REMOVE MI3D. 00250000 C REVISED 05-26-88 RDK. REMOVE MTCA; REINSTATE CORA. 00260000 C REVISED 06-23-88 ESN. ADD SISG. 00270000 C REVISED 07-05-88 ESN. ADD UMIG. 00280000 C REVISED 07-07-88 DRS. ADD VSPW AND VSPV. 00290000 C REVISED 10-10-88 TJT. ADD SL3D AND SU3D. 00300000 C REVISED 10-11-88 MCD. ADD PHAS 00310000 C REVISED 10-24-88 ESN. REMOVE MG45. 00320000 C REVISED 11-04-88 ESN. ADD TRAV. 00330000 C REVISED 12-08-88 JJC. ADD MPFK, VCFK, VFFK, VSFK AND TFAN. 00340000 C REVISED 01-03-89 TJT. ADD HSEL. 00350000 C REVISED 01-16-89 ESN. ADD DPDE. 00360000 C REVISED 01-26-89 ESN. ADD RTVL. 00370000 C REVISED 02-09-89 ESN. ADD VDAT. 00380000 C REVISED 02-14-89 ESN. ADD LA3D, TR3D, AND TS3D. 00390000 C REVISED 03-01-89 JJC. ADD CNAC, AND RAVE. 00400000 C REVISED 03-21-89 JJC. ADD MLRS. 00410000 C REVISED 05-22-89 JJC. ADD RAMR. 00420000 C REVISED 06-09-89 TJT. ADD HEDT. 00430000 C REVISED 07-28-89 JJC. ADD AVEL. 00440000 C REVISED 09-05-89 ESN. ADD MU3D. 00450000 C REVISED 09-12-89 JJC. ADD DM3D. 00460000 C REVISED 10-22-89 JJC. ADD AVOP. 00470000 C REVISED 11-02-89 ESN. ADD PIKL AND SORT. 00480000 C REVISED 01-31-90 RDK. ADD MSAM. 00490000 C REVISED 02-21-90 RDK. ADD ORDR. 00500000 C REVISED 06-11-90 ESN. ADD CS3D. 00510000 C REVISED 07-18-90 CLJ ADD ENTRY FOR NEW PROCESSES ZM2D & EGEN 00520000 C REVISED 10-18-90 CLJ ADD ENTRY FOR NEW PROCESS PRCP 00530000 C REVISED 10-22-90 CLJ ADD ENTRY FOR NEW PROCESS FX3D 00540000 C REVISED 11-02-90 CLJ ADD ENTRY FOR TRAK 00550000 C REVISED 12-10-90 ESN ADD NAVC. 00560000 C REVISED 01-08-91 ESN ADD WT3D. 00570000 C REVISED 02-01-91 ESN ADD P100. 00580000 C REVISED 05-30-91 ESN ADD GA3D. 00590000 C REVISED 10-14-91 ESN ADD SCHS. 00600000 C REVISED 10-16-91 ESN ADD HCPY. 00610000 C REVISED 10-17-91 ESN ADD VSHF. 00620000 C REVISED 10-21-91 ESN ADD STAX. 00630000 C REVISED 12-16-91 CLJ ADD ENTRY FOR NEW PROCESSES VADM & VDDM 00640000 C REVISED 12-31-91 CLJ ADD ENTRY FOR NEW PROCESSES SURF & SURG 00650000 C REVISED 01-04-92 JJC ADD ALTO. 00660000 C REVISED 01-07-92 WRF ADD ANST. 00670000 C REVISED 01-10-92 WRF ADD LMPA. 00680000 C REVISED 01-23-92 JJC ADD TRIM. 00690000 C REVISED 01-27-92 ESN ADD VOVR. 00700000 C REVISED 02-21-92 JJC ADD FXIN & EQMO. 00710000 C REVISED 03-30-92 WRF ADD FF3D 00720000 C REVISED 04-27-92 ESN ADD STAH 00730000 C REVISED 06-04-92 WRF ADD XSMP 00740000 C REVISED 06-19-92 ESN REMOVE GA3D. 00750000 C REVISED 08-21-92 ESN ADD FF2D 00760000 C 00770000 CA CALL CPSPCL (PROCN, &STMT) 00780000 CA 00790000 CA IN/OUT ARGUMENT TYPE DESCRIPTION 00800000 CA 00810000 CA IN PROCN C4 PROCESS NAME TO BE CALLED 00820000 CA OUT &STMT ERROR RETURN IF PROCESS IS NOT FOUND 00830000 CA 00840000 CA THIS SUBROUTINE IS RESPONSIBLE FOR CALLING THE APPROPRIATE PREP 00850000 CA ROUTINE. THE ERROR RETURN IS TAKEN IF THE PROCESS IS NOT FOUND. 00860000 CA 00870000 C EJECT 00880000 C 00890000 SUBROUTINE CPSPCL (PROCN, *) 00900000 C 00910000 IMPLICIT INTEGER (A-Z) 00920000 C 00930000 CHARACTER*4 PROCN 00940000 C 00950000 IF (PROCN .EQ. 'ACHK') THEN 00960000 CALL SPACHK 00970000 GO TO 200 00980000 END IF 00990000 C 01000000 IF (PROCN .EQ. 'AGCS') THEN 01010000 CALL SPAGCS 01020000 GO TO 200 01030000 END IF 01040000 C 01050000 IF (PROCN .EQ. 'AIED') THEN 01060000 CALL SPAIED 01070000 GO TO 200 01080000 END IF 01090000 C 01100000 IF (PROCN .EQ. 'ALTO') THEN 01110000 CALL SPALTO 01120000 GO TO 200 01130000 END IF 01140000 C 01150000 IF (PROCN .EQ. 'AMPS') THEN 01160000 CALL SPAMPS 01170000 GO TO 200 01180000 END IF 01190000 C 01200000 IF (PROCN .EQ. 'ANST') THEN 01210000 CALL SPANST 01220000 GO TO 200 01230000 END IF 01240000 C 01250000 IF (PROCN .EQ. 'AVEL') THEN 01260000 CALL SPAVEL 01270000 GO TO 200 01280000 END IF 01290000 C 01300000 IF (PROCN .EQ. 'AVOP') THEN 01310000 CALL SPAVOP 01320000 GO TO 200 01330000 END IF 01340000 C 01350000 IF (PROCN .EQ. 'CD3D') THEN 01360000 CALL SPCD3D 01370000 GO TO 200 01380000 END IF 01390000 C 01400000 IF (PROCN .EQ. 'CNAC') THEN 01410000 CALL SPCNAC 01420000 GO TO 200 01430000 END IF 01440000 C 01450000 IF (PROCN .EQ. 'CNAX') THEN 01460000 CALL SPCNAX 01470000 GO TO 200 01480000 END IF 01490000 C 01500000 IF (PROCN .EQ. 'CNAY') THEN 01510000 CALL SPCNAY 01520000 GO TO 200 01530000 END IF 01540000 C 01550000 IF (PROCN .EQ. 'COMD') THEN 01560000 CALL SPCOMD 01570000 GO TO 200 01580000 END IF 01590000 C 01600000 IF (PROCN .EQ. 'CORA') THEN 01610000 CALL SPCORA 01620000 GO TO 200 01630000 END IF 01640000 C 01650000 IF (PROCN .EQ. 'CORR') THEN 01660000 CALL SPCORR 01670000 GO TO 200 01680000 END IF 01690000 C 01700000 IF (PROCN .EQ. 'COST') THEN 01710000 CALL SPCOST 01720000 GO TO 200 01730000 END IF 01740000 C 01750000 IF (PROCN .EQ. 'CPRO') THEN 01760000 CALL SPCPRO 01770000 GO TO 200 01780000 END IF 01790000 C 01800000 IF (PROCN .EQ. 'CRDA') THEN 01810000 CALL SPCRDA 01820000 GO TO 200 01830000 END IF 01840000 C 01850000 IF (PROCN .EQ. 'CSTK') THEN 01860000 CALL SPCSTK 01870000 GO TO 200 01880000 END IF 01890000 C 01900000 IF (PROCN .EQ. 'CS3D') THEN 01910000 CALL SPCS3D 01920000 GO TO 200 01930000 END IF 01940000 C 01950000 IF (PROCN .EQ. 'CVAN') THEN 01960000 CALL SPCVAN 01970000 GO TO 200 01980000 END IF 01990000 C 02000000 IF (PROCN .EQ. 'CVPL') THEN 02010000 CALL SPCVPL 02020000 GO TO 200 02030000 END IF 02040000 C 02050000 IF (PROCN .EQ. 'DATM') THEN 02060000 CALL SPDATM 02070000 GO TO 200 02080000 END IF 02090000 C 02100000 IF (PROCN .EQ. 'DBIA') THEN 02110000 CALL SPDBIA 02120000 GO TO 200 02130000 END IF 02140000 C 02150000 IF (PROCN .EQ. 'DCNX') THEN 02160000 CALL SPDCNX 02170000 GO TO 200 02180000 END IF 02190000 C 02200000 IF (PROCN .EQ. 'DCON') THEN 02210000 CALL SPDCON 02220000 GO TO 200 02230000 END IF 02240000 C 02250000 IF (PROCN .EQ. 'DDEC') THEN 02260000 CALL SPDDEC 02270000 GO TO 200 02280000 END IF 02290000 C 02300000 IF (PROCN .EQ. 'DGEN') THEN 02310000 CALL SPDGEN 02320000 GO TO 200 02330000 END IF 02340000 C 02350000 IF (PROCN .EQ. 'DG3D') THEN 02360000 CALL SPDG3D 02370000 GO TO 200 02380000 END IF 02390000 C 02400000 IF (PROCN .EQ. 'DM3D') THEN 02410000 CALL SPDM3D 02420000 GO TO 200 02430000 END IF 02440000 C 02450000 IF (PROCN .EQ. 'DMFK') THEN 02460000 CALL SPDMFK 02470000 GO TO 200 02480000 END IF 02490000 C 02500000 IF (PROCN .EQ. 'DMIG') THEN 02510000 CALL SPDMIG 02520000 GO TO 200 02530000 END IF 02540000 C 02550000 IF (PROCN .EQ. 'DPDE') THEN 02560000 CALL SPDPDE 02570000 GO TO 200 02580000 END IF 02590000 C 02600000 IF (PROCN .EQ. 'DPTH') THEN 02610000 CALL SPDPTH 02620000 GO TO 200 02630000 END IF 02640000 C 02650000 IF (PROCN .EQ. 'D3NT') THEN 02660000 CALL SPD3NT 02670000 GO TO 200 02680000 END IF 02690000 C 02700000 IF (PROCN .EQ. 'EDIT') THEN 02710000 CALL SPEDIT 02720000 GO TO 200 02730000 END IF 02740000 C 02750000 IF (PROCN .EQ. 'EGEN') THEN 02760000 CALL SPEGEN 02770000 GO TO 200 02780000 END IF 02790000 C 02800000 IF (PROCN .EQ. 'EQMO') THEN 02810000 CALL SPEQMO 02820000 GO TO 200 02830000 END IF 02840000 C 02850000 IF (PROCN .EQ. 'EQUL') THEN 02860000 CALL SPEQUL 02870000 GO TO 200 02880000 END IF 02890000 C 02900000 IF (PROCN .EQ. 'FANA') THEN 02910000 CALL SPFANA 02920000 GO TO 200 02930000 END IF 02940000 C 02950000 IF (PROCN .EQ. 'FANF') THEN 02960000 CALL SPFANF 02970000 GO TO 200 02980000 END IF 02990000 C 03000000 IF (PROCN .EQ. 'FF2D') THEN 03010000 CALL SPFF2D 03020000 GO TO 200 03030000 END IF 03040000 C 03050000 IF (PROCN .EQ. 'FF3D') THEN 03060000 CALL SPFF3D 03070000 GO TO 200 03080000 END IF 03090000 C 03100000 IF (PROCN .EQ. 'FILL') THEN 03110000 CALL SPFILL 03120000 GO TO 200 03130000 END IF 03140000 C 03150000 IF (PROCN .EQ. 'FLAT') THEN 03160000 CALL SPFLAT 03170000 GO TO 200 03180000 END IF 03190000 C 03200000 IF (PROCN .EQ. 'FLTR') THEN 03210000 CALL SPFLTR 03220000 GO TO 200 03230000 END IF 03240000 C 03250000 IF (PROCN .EQ. 'FRAN') THEN 03260000 CALL SPFRAN 03270000 GO TO 200 03280000 END IF 03290000 C 03300000 IF (PROCN .EQ. 'FREQ') THEN 03310000 CALL SPFREQ 03320000 GO TO 200 03330000 END IF 03340000 C 03350000 IF (PROCN .EQ. 'FX3D') THEN 03360000 CALL SPFX3D 03370000 GO TO 200 03380000 END IF 03390000 C 03400000 IF (PROCN .EQ. 'FXIN') THEN 03410000 CALL SPFXIN 03420000 GO TO 200 03430000 END IF 03440000 C 03450000 IF (PROCN .EQ. 'GATH') THEN 03460000 CALL SPGATH 03470000 GO TO 200 03480000 END IF 03490000 C 03500000 IF (PROCN .EQ. 'GDSP') THEN 03510000 CALL SPGDSP 03520000 GO TO 200 03530000 END IF 03540000 C 03550000 IF (PROCN .EQ. 'GEND') THEN 03560000 CALL SPGEND 03570000 GO TO 200 03580000 END IF 03590000 C 03600000 IF (PROCN .EQ. 'GEOM') THEN 03610000 CALL SPGEOM 03620000 GO TO 200 03630000 END IF 03640000 C 03650000 IF (PROCN .EQ. 'GMAP') THEN 03660000 CALL SPGMAP 03670000 GO TO 200 03680000 END IF 03690000 C 03700000 IF (PROCN .EQ. 'GM3D') THEN 03710000 CALL SPGM3D 03720000 GO TO 200 03730000 END IF 03740000 C 03750000 IF (PROCN .EQ. 'HCPY') THEN 03760000 CALL SPHCPY 03770000 GO TO 200 03780000 END IF 03790000 C 03800000 IF (PROCN .EQ. 'HDMP') THEN 03810000 CALL SPHDMP 03820000 GO TO 200 03830000 END IF 03840000 C 03850000 IF (PROCN .EQ. 'HEDT') THEN 03860000 CALL SPHEDT 03870000 GO TO 200 03880000 END IF 03890000 C 03900000 IF (PROCN .EQ. 'HPLT') THEN 03910000 CALL SPHPLT 03920000 GO TO 200 03930000 END IF 03940000 C 03950000 IF (PROCN .EQ. 'HSEL') THEN 03960000 CALL SPHSEL 03970000 GO TO 200 03980000 END IF 03990000 C 04000000 IF (PROCN .EQ. 'HZAA') THEN 04010000 CALL SPHZAA 04020000 GO TO 200 04030000 END IF 04040000 C 04050000 IF (PROCN .EQ. 'HZAD') THEN 04060000 CALL SPHZAD 04070000 GO TO 200 04080000 END IF 04090000 C 04100000 IF (PROCN .EQ. 'HZVA') THEN 04110000 CALL SPHZVA 04120000 GO TO 200 04130000 END IF 04140000 C 04150000 IF (PROCN .EQ. 'HZVD') THEN 04160000 CALL SPHZVD 04170000 GO TO 200 04180000 END IF 04190000 C 04200000 IF (PROCN .EQ. 'IDCN') THEN 04210000 CALL SPIDCN 04220000 GO TO 200 04230000 END IF 04240000 C 04250000 IF (PROCN .EQ. 'KMIG') THEN 04260000 CALL SPKMIG 04270000 GO TO 200 04280000 END IF 04290000 C 04300000 IF (PROCN .EQ. 'LAGX') THEN 04310000 CALL SPLAGX 04320000 GO TO 200 04330000 END IF 04340000 C 04350000 IF (PROCN .EQ. 'LA3D') THEN 04360000 CALL SPLA3D 04370000 GO TO 200 04380000 END IF 04390000 C 04400000 IF (PROCN .EQ. 'LITH') THEN 04410000 CALL SPLITH 04420000 GO TO 200 04430000 END IF 04440000 C 04450000 IF (PROCN .EQ. 'LMPA') THEN 04460000 CALL SPLMPA 04470000 GO TO 200 04480000 END IF 04490000 C 04500000 IF (PROCN .EQ. 'MERJ') THEN 04510000 CALL SPMERJ 04520000 GO TO 200 04530000 END IF 04540000 C 04550000 IF (PROCN .EQ. 'MLRS') THEN 04560000 CALL SPMLRS 04570000 GO TO 200 04580000 END IF 04590000 C 04600000 IF (PROCN .EQ. 'MNVD') THEN 04610000 CALL SPMNVD 04620000 GO TO 200 04630000 END IF 04640000 C 04650000 IF (PROCN .EQ. 'MPFK') THEN 04660000 CALL SPMPFK 04670000 GO TO 200 04680000 END IF 04690000 C 04700000 IF (PROCN .EQ. 'MSAM') THEN 04710000 CALL SPMSAM 04720000 GO TO 200 04730000 END IF 04740000 C 04750000 IF (PROCN .EQ. 'MUTE') THEN 04760000 CALL SPMUTE 04770000 GO TO 200 04780000 END IF 04790000 C 04800000 IF (PROCN .EQ. 'MU3D') THEN 04810000 CALL SPMU3D 04820000 GO TO 200 04830000 END IF 04840000 C 04850000 IF (PROCN .EQ. 'M2FK') THEN 04860000 CALL SPM2FK 04870000 GO TO 200 04880000 END IF 04890000 C 04900000 IF (PROCN .EQ. 'M3FK') THEN 04910000 CALL SPM3FK 04920000 GO TO 200 04930000 END IF 04940000 C 04950000 IF (PROCN .EQ. 'NAVC') THEN 04960000 CALL SPNAVC 04970000 GO TO 200 04980000 END IF 04990000 C 05000000 IF (PROCN .EQ. 'NINA') THEN 05010000 CALL SPNINA 05020000 GO TO 200 05030000 END IF 05040000 C 05050000 IF (PROCN .EQ. 'NMOC') THEN 05060000 CALL SPNMOC 05070000 GO TO 200 05080000 END IF 05090000 C 05100000 IF (PROCN .EQ. 'OBIS') THEN 05110000 CALL SPOBIS 05120000 GO TO 200 05130000 END IF 05140000 C 05150000 IF (PROCN .EQ. 'OFST') THEN 05160000 CALL SPOFST 05170000 GO TO 200 05180000 END IF 05190000 C 05200000 IF (PROCN .EQ. 'OPAP') THEN 05210000 CALL SPOPAP 05220000 GO TO 200 05230000 END IF 05240000 C 05250000 IF (PROCN .EQ. 'ORDR') THEN 05260000 CALL SPORDR 05270000 GO TO 200 05280000 END IF 05290000 C 05300000 IF (PROCN .EQ. 'PANL') THEN 05310000 CALL SPPANL 05320000 GO TO 200 05330000 END IF 05340000 C 05350000 IF (PROCN .EQ. 'PHAS') THEN 05360000 CALL SPPHAS 05370000 GO TO 200 05380000 END IF 05390000 C 05400000 IF (PROCN .EQ. 'PICK') THEN 05410000 CALL SPPICK 05420000 GO TO 200 05430000 END IF 05440000 C 05450000 IF (PROCN .EQ. 'PIKL') THEN 05460000 CALL SPPIKL 05470000 GO TO 200 05480000 END IF 05490000 C 05500000 IF (PROCN .EQ. 'PRCP') THEN 05510000 CALL SPPRCP 05520000 GO TO 200 05530000 END IF 05540000 C 05550000 IF (PROCN .EQ. 'P100') THEN 05560000 CALL SPP100 05570000 GO TO 200 05580000 END IF 05590000 C 05600000 IF (PROCN .EQ. 'QCMP') THEN 05610000 CALL SPQCMP 05620000 GO TO 200 05630000 END IF 05640000 C 05650000 IF (PROCN .EQ. 'QUAD') THEN 05660000 CALL SPQUAD 05670000 GO TO 200 05680000 END IF 05690000 C 05700000 IF (PROCN .EQ. 'QULR') THEN 05710000 CALL SPQULR 05720000 GO TO 200 05730000 END IF 05740000 C 05750000 IF (PROCN .EQ. 'RAMR') THEN 05760000 CALL SPRAMR 05770000 GO TO 200 05780000 END IF 05790000 C 05800000 IF (PROCN .EQ. 'RAMS') THEN 05810000 CALL SPRAMS 05820000 GO TO 200 05830000 END IF 05840000 C 05850000 IF (PROCN .EQ. 'RARS') THEN 05860000 CALL SPRARS 05870000 GO TO 200 05880000 END IF 05890000 C 05900000 IF (PROCN .EQ. 'RAVE') THEN 05910000 CALL SPRAVE 05920000 GO TO 200 05930000 END IF 05940000 C 05950000 IF (PROCN .EQ. 'RCOR') THEN 05960000 CALL SPRCOR 05970000 GO TO 200 05980000 END IF 05990000 C 06000000 IF (PROCN .EQ. 'READ') THEN 06010000 CALL SPREAD 06020000 GO TO 200 06030000 END IF 06040000 C 06050000 IF (PROCN .EQ. 'REJH') THEN 06060000 CALL SPREJH 06070000 GO TO 200 06080000 END IF 06090000 C 06100000 IF (PROCN .EQ. 'RMOD') THEN 06110000 CALL SPRMOD 06120000 GO TO 200 06130000 END IF 06140000 C 06150000 IF (PROCN .EQ. 'RSUM') THEN 06160000 CALL SPRSUM 06170000 GO TO 200 06180000 END IF 06190000 C 06200000 IF (PROCN .EQ. 'RTVL') THEN 06210000 CALL SPRTVL 06220000 GO TO 200 06230000 END IF 06240000 C 06250000 IF (PROCN .EQ. 'SCDA') THEN 06260000 CALL SPSCDA 06270000 GO TO 200 06280000 END IF 06290000 C 06300000 IF (PROCN .EQ. 'SCDB') THEN 06310000 CALL SPSCDB 06320000 GO TO 200 06330000 END IF 06340000 C 06350000 IF (PROCN .EQ. 'SCDC') THEN 06360000 CALL SPSCDC 06370000 GO TO 200 06380000 END IF 06390000 C 06400000 IF (PROCN .EQ. 'SCHS') THEN 06410000 CALL SPSCHS 06420000 GO TO 200 06430000 END IF 06440000 C 06450000 IF (PROCN .EQ. 'SDSP') THEN 06460000 CALL SPSDSP 06470000 GO TO 200 06480000 END IF 06490000 C 06500000 IF (PROCN .EQ. 'SELT') THEN 06510000 CALL SPSELT 06520000 GO TO 200 06530000 END IF 06540000 C 06550000 IF (PROCN .EQ. 'SIGD') THEN 06560000 CALL SPSIGD 06570000 GO TO 200 06580000 END IF 06590000 C 06600000 IF (PROCN .EQ. 'SISG') THEN 06610000 CALL SPSISG 06620000 GO TO 200 06630000 END IF 06640000 C 06650000 IF (PROCN .EQ. 'SLOG') THEN 06660000 CALL SPSLOG 06670000 GO TO 200 06680000 END IF 06690000 C 06700000 IF (PROCN .EQ. 'SLST') THEN 06710000 CALL SPSLST 06720000 GO TO 200 06730000 END IF 06740000 C 06750000 IF (PROCN .EQ. 'SL3D') THEN 06760000 CALL SPSL3D 06770000 GO TO 200 06780000 END IF 06790000 C 06800000 IF (PROCN .EQ. 'SMIG') THEN 06810000 CALL SPSMIG 06820000 GO TO 200 06830000 END IF 06840000 C 06850000 IF (PROCN .EQ. 'SM3D') THEN 06860000 CALL SPSM3D 06870000 GO TO 200 06880000 END IF 06890000 C 06900000 IF (PROCN .EQ. 'SORT') THEN 06910000 CALL SPSORT 06920000 GO TO 200 06930000 END IF 06940000 C 06950000 IF (PROCN .EQ. 'SPEC') THEN 06960000 CALL SPSPEC 06970000 GO TO 200 06980000 END IF 06990000 C 07000000 IF (PROCN .EQ. 'SPEW') THEN 07010000 CALL SPSPEW 07020000 GO TO 200 07030000 END IF 07040000 C 07050000 IF (PROCN .EQ. 'SP2D') THEN 07060000 CALL SPSP2D 07070000 GO TO 200 07080000 END IF 07090000 C 07100000 IF (PROCN .EQ. 'SP3D') THEN 07110000 CALL SPSP3D 07120000 GO TO 200 07130000 END IF 07140000 C 07150000 IF (PROCN .EQ. 'SRVY') THEN 07160000 CALL SPSRVY 07170000 GO TO 200 07180000 END IF 07190000 C 07200000 IF (PROCN .EQ. 'STAH') THEN 07210000 CALL SPSTAH 07220000 GO TO 200 07230000 END IF 07240000 C 07250000 IF (PROCN .EQ. 'STAK') THEN 07260000 CALL SPSTAK 07270000 GO TO 200 07280000 END IF 07290000 C 07300000 IF (PROCN .EQ. 'STAP') THEN 07310000 CALL SPSTAP 07320000 GO TO 200 07330000 END IF 07340000 C 07350000 IF (PROCN .EQ. 'STAT') THEN 07360000 CALL SPSTAT 07370000 GO TO 200 07380000 END IF 07390000 C 07400000 IF (PROCN .EQ. 'STAX') THEN 07410000 CALL SPSTAX 07420000 GO TO 200 07430000 END IF 07440000 C 07450000 IF (PROCN .EQ. 'STKP') THEN 07460000 CALL SPSTKP 07470000 GO TO 200 07480000 END IF 07490000 C 07500000 IF (PROCN .EQ. 'STKW') THEN 07510000 CALL SPSTKW 07520000 GO TO 200 07530000 END IF 07540000 C 07550000 IF (PROCN .EQ. 'STOC') THEN 07560000 CALL SPSTOC 07570000 GO TO 200 07580000 END IF 07590000 C 07600000 IF (PROCN .EQ. 'SURF') THEN 07610000 CALL SPSURF 07620000 GO TO 200 07630000 END IF 07640000 C 07650000 IF (PROCN .EQ. 'SURG') THEN 07660000 CALL SPSURG 07670000 GO TO 200 07680000 END IF 07690000 C 07700000 IF (PROCN .EQ. 'SU3D') THEN 07710000 CALL SPSU3D 07720000 GO TO 200 07730000 END IF 07740000 C 07750000 IF (PROCN .EQ. 'SWAT') THEN 07760000 CALL SPSWAT 07770000 GO TO 200 07780000 END IF 07790000 C 07800000 IF (PROCN .EQ. 'UMIG') THEN 07810000 CALL SPUMIG 07820000 GO TO 200 07830000 END IF 07840000 C 07850000 IF (PROCN .EQ. 'TDIF') THEN 07860000 CALL SPTDIF 07870000 GO TO 200 07880000 END IF 07890000 C 07900000 IF (PROCN .EQ. 'TFAN') THEN 07910000 CALL SPTFAN 07920000 GO TO 200 07930000 END IF 07940000 C 07950000 IF (PROCN .EQ. 'TMIX') THEN 07960000 CALL SPTMIX 07970000 GO TO 200 07980000 END IF 07990000 C 08000000 IF (PROCN .EQ. 'TRAC') THEN 08010000 CALL SPTRAC 08020000 GO TO 200 08030000 END IF 08040000 C 08050000 IF (PROCN .EQ. 'TRAK') THEN 08060000 CALL SPTRAK 08070000 GO TO 200 08080000 END IF 08090000 C 08100000 IF (PROCN .EQ. 'TRAV') THEN 08110000 CALL SPTRAV 08120000 GO TO 200 08130000 END IF 08140000 C 08150000 IF (PROCN .EQ. 'TRAX') THEN 08160000 CALL SPTRAX 08170000 GO TO 200 08180000 END IF 08190000 C 08200000 IF (PROCN .EQ. 'TRCS') THEN 08210000 CALL SPTRCS 08220000 GO TO 200 08230000 END IF 08240000 C 08250000 IF (PROCN .EQ. 'TRIM') THEN 08260000 CALL SPTRIM 08270000 GO TO 200 08280000 END IF 08290000 C 08300000 IF (PROCN .EQ. 'TR3D') THEN 08310000 CALL SPTR3D 08320000 GO TO 200 08330000 END IF 08340000 C 08350000 IF (PROCN .EQ. 'TSLC') THEN 08360000 CALL SPTSLC 08370000 GO TO 200 08380000 END IF 08390000 C 08400000 IF (PROCN .EQ. 'TSUM') THEN 08410000 CALL SPTSUM 08420000 GO TO 200 08430000 END IF 08440000 C 08450000 IF (PROCN .EQ. 'TS3D') THEN 08460000 CALL SPTS3D 08470000 GO TO 200 08480000 END IF 08490000 C 08500000 IF (PROCN .EQ. 'VADM') THEN 08510000 CALL SPVADM 08520000 GO TO 200 08530000 END IF 08540000 C 08550000 IF (PROCN .EQ. 'VCFK') THEN 08560000 CALL SPVCFK 08570000 GO TO 200 08580000 END IF 08590000 C 08600000 IF (PROCN .EQ. 'VCOR') THEN 08610000 CALL SPVCOR 08620000 GO TO 200 08630000 END IF 08640000 C 08650000 IF (PROCN .EQ. 'VDAT') THEN 08660000 CALL SPVDAT 08670000 GO TO 200 08680000 END IF 08690000 C 08700000 IF (PROCN .EQ. 'VDDM') THEN 08710000 CALL SPVDDM 08720000 GO TO 200 08730000 END IF 08740000 C 08750000 IF (PROCN .EQ. 'VELA') THEN 08760000 CALL SPVELA 08770000 GO TO 200 08780000 END IF 08790000 C 08800000 IF (PROCN .EQ. 'VELD') THEN 08810000 CALL SPVELD 08820000 GO TO 200 08830000 END IF 08840000 C 08850000 IF (PROCN .EQ. 'VELF') THEN 08860000 CALL SPVELF 08870000 GO TO 200 08880000 END IF 08890000 C 08900000 IF (PROCN .EQ. 'VF3D') THEN 08910000 CALL SPVF3D 08920000 GO TO 200 08930000 END IF 08940000 C 08950000 IF (PROCN .EQ. 'VFFK') THEN 08960000 CALL SPVFFK 08970000 GO TO 200 08980000 END IF 08990000 C 09000000 IF (PROCN .EQ. 'VOVR') THEN 09010000 CALL SPVOVR 09020000 GO TO 200 09030000 END IF 09040000 C 09050000 IF (PROCN .EQ. 'VPRO') THEN 09060000 CALL SPVPRO 09070000 GO TO 200 09080000 END IF 09090000 C 09100000 IF (PROCN .EQ. 'VSFK') THEN 09110000 CALL SPVSFK 09120000 GO TO 200 09130000 END IF 09140000 C 09150000 IF (PROCN .EQ. 'VSHF') THEN 09160000 CALL SPVSHF 09170000 GO TO 200 09180000 END IF 09190000 C 09200000 IF (PROCN .EQ. 'VSPA') THEN 09210000 CALL SPVSPA 09220000 GO TO 200 09230000 END IF 09240000 C 09250000 IF (PROCN .EQ. 'VSPB') THEN 09260000 CALL SPVSPB 09270000 GO TO 200 09280000 END IF 09290000 C 09300000 IF (PROCN .EQ. 'VSPC') THEN 09310000 CALL SPVSPC 09320000 GO TO 200 09330000 END IF 09340000 C 09350000 IF (PROCN .EQ. 'VSPD') THEN 09360000 CALL SPVSPD 09370000 GO TO 200 09380000 END IF 09390000 C 09400000 IF (PROCN .EQ. 'VSPE') THEN 09410000 CALL SPVSPE 09420000 GO TO 200 09430000 END IF 09440000 C 09450000 IF (PROCN .EQ. 'VSPF') THEN 09460000 CALL SPVSPF 09470000 GO TO 200 09480000 END IF 09490000 C 09500000 IF (PROCN .EQ. 'VSPG') THEN 09510000 CALL SPVSPG 09520000 GO TO 200 09530000 END IF 09540000 C 09550000 IF (PROCN .EQ. 'VSPV') THEN 09560000 CALL SPVSPV 09570000 GO TO 200 09580000 END IF 09590000 C 09600000 IF (PROCN .EQ. 'VSPW') THEN 09610000 CALL SPVSPW 09620000 GO TO 200 09630000 END IF 09640000 C 09650000 IF (PROCN .EQ. 'VSUM') THEN 09660000 CALL SPVSUM 09670000 GO TO 200 09680000 END IF 09690000 C 09700000 IF (PROCN .EQ. 'WRIT') THEN 09710000 CALL SPWRIT 09720000 GO TO 200 09730000 END IF 09740000 C 09750000 IF (PROCN .EQ. 'WRPF') THEN 09760000 CALL SPWRPF 09770000 GO TO 200 09780000 END IF 09790000 C 09800000 IF (PROCN .EQ. 'WT3D') THEN 09810000 CALL SPWT3D 09820000 GO TO 200 09830000 END IF 09840000 C 09850000 IF (PROCN .EQ. 'XSMP') THEN 09860000 CALL SPXSMP 09870000 GO TO 200 09880000 END IF 09890000 C 09900000 IF (PROCN .EQ. 'ZDCN') THEN 09910000 CALL SPZDCN 09920000 GO TO 200 09930000 END IF 09940000 C 09950000 IF (PROCN .EQ. 'ZMIG') THEN 09960000 CALL SPZMIG 09970000 GO TO 200 09980000 END IF 09990000 C 10000000 IF (PROCN .EQ. 'ZMPS') THEN 10010000 CALL SPZMPS 10020000 GO TO 200 10030000 END IF 10040000 C 10050000 IF (PROCN .EQ. 'ZM2D') THEN 10060000 CALL SPZM2D 10070000 GO TO 200 10080000 END IF 10090000 C 10100000 C NOW CHECK FOR SPARC DEVELOPMENT PROCESSES 10110000 C 10120000 C 10130000 IF (PROCN .EQ. 'CRAN') THEN 10140000 CALL SPCRAN 10150000 GO TO 200 10160000 END IF 10170000 C 10180000 C PROCESS NOT FOUND, TAKE ERROR RETURN 10190000 C 10200000 RETURN1 10210000 C 10220000 200 RETURN 10230000 END 10240000