MODNAM   PROC  P,0,PRNTR,IN,LIN=LIB1,LST,OPT,                          *J$F00010
               MDE,OUT,SCR1,ALTLOD,STX,CNL                              J$F00020
FOR      NAME  2                                                        J$F00030
FORL     NAME  1                                                        J$F00040
FORLG    NAME  0                                                        J$F00050
//       GBL  SSCR1,SPRNTR                                              J$F00060
//       GO    OPT&P(0)                                                 J$F00070
//OPT0   OPTION GO                                                      J$F00080
//OPT1 OPTION LINK                                                      J$F00090
//OPT2   NOP                                                            J$F00100
// J$ALCPRT &PRNTR(1),&PRNTR(2)                                         J$F00110
//       IF    ('&IN' EQ '')POUT                                        J$F00140
// DVCVOL &IN(1)                                                        J$F00150
// IF    ('&IN(2)' EQ '')PIN1                                           J$F00160
// LBL &IN(2)                                                           J$F00170
//       GO    PIN2                                                     J$F00180
//PIN1  LBL $Y$SRC                                                      J$F00190
//PIN2 LFD &LIN                                                         J$F00200
//POUT   IF    ('&OUT' EQ '')PSCR                                       J$F00210
//       IF    ('&OUT(2)' EQ '$Y$RUN')PSCR                              J$F00215
// DVCVOL &OUT(1)                                                       J$F00220
// LBL &OUT(2) // LFD OUTFPUT                                           J$F00230
//PSCR   IF    ('&SSCR1' NE '')K2                                       J$F00240
//       IF    ('&SCR1' EQ '')K1                                        J$F00250
//SSCR1  JSET  &SCR1 // GO K2                                           J$F00260
//K1     NOP                                                            J$F00270
//SSCR1  JSET  RES                                                      J$F00280
//K2 DVCVOL &SSCR1                                                      J$F00290
//       EXT   ST,C,3,CYL,1                                             J$F00300
// LBL $SCR1 // LFD $SCR1                                               J$F00310
//       IF    ('&ALTLOD' EQ '')EX1                                     J$F00320
// DVCVOL &ALTLOD(1)                                                    J$F00330
// LBL &ALTLOD(2) // LFD ALTLOD                                         J$F00340
// EXEC FOR,ALTLOD                                                      J$F00350
//       GO    P1                                                       J$F00360
//EX1    EXEC  FOR,$Y$RUN                                               J$F00370
//P1     IF    ('&LST' EQ '')P2                                         J$F00380
// PARAM LST=&LST                                                       J$F00390
//P2     IF    ('&OPT' EQ '')P3                                         J$F00400
// PARAM OPT=&OPT                                                       J$F00410
//P3     IF    ('&MDE' EQ '')P4                                         J$F00420
// PARAM MDE=&MDE                                                       J$F00430
//P4     IF    ('&CNL' EQ '')P5                                         J$F00440
// PARAM CNL=&CNL                                                       J$F00450
//P5     IF    ('&STX' EQ '')P6                                         J$F00460
// PARAM STX=&STX                                                       J$F00470
//P6     IF    ('&OUT' EQ '')P7                                         J$F00480
//       IF    ('&OUT(2)' EQ '$Y$RUN')P7                                J$F00485
// PARAM OUT=OUTFPUT                                                    J$F00490
//P7     IF    ('&LIN' EQ 'LIB1')P8                                     J$F00500
// PARAM LIN=&LIN                                                       J$F00510
//P8     IF    ('&IN' EQ '')PLAST                                       J$F00520
//       IF    ('&MODNAM' EQ '')PLAST                                   J$F00530
// PARAM IN=&MODNAM./&LIN                                               J$F00540
//PLAST  NOP                                                            J$F00550
         END                                                            J$F00560
