TESTING/LIN/pzlltdriver.f

89      $                   IPREPAD, IPOSTPAD, IPW, IPW2, ITEMP, J, K,
251                   IPOSTPAD = MAX( NB, NQ )
255                   IPOSTPAD = 0
279                   IPA0 = IPA + DESCA( LLD_ )*NQ + IPOSTPAD + IPREPAD
280                   IPW = IPA0 + DESCA( LLD_ )*NQ + IPOSTPAD + IPREPAD
282                   IPW = IPA + DESCA( LLD_ )*NQ + IPOSTPAD + IPREPAD
304                   WORKSIZ = WORKSIZ + IPOSTPAD
308                   WORKSIZ = IPOSTPAD
345      $                             DESCA( LLD_ ), IPREPAD, IPOSTPAD,
347                   CALL PZFILLPAD( ICTXT, WORKSIZ-IPOSTPAD, 1,
348      $                             MEM( IPW-IPREPAD ), WORKSIZ-IPOSTPAD,
349      $                             IPREPAD, IPOSTPAD, PADVAL )
356      $                            IPREPAD, IPOSTPAD, PADVAL )
357                   CALL PZCHEKPAD( ICTXT, 'PZLANHE', WORKSIZ-IPOSTPAD,
359      $                            WORKSIZ-IPOSTPAD, IPREPAD, IPOSTPAD,
373      $                               IPREPAD, IPOSTPAD, PADVAL )
401      $                            IPREPAD, IPOSTPAD, PADVAL )
413                   IPW2  = IPW + LWORK + IPOSTPAD + IPREPAD
415                   LW2   = ICEIL( LRWORK*DBLESZ, ZPLXSZ ) + IPOSTPAD
440      $                               IPREPAD, IPOSTPAD, PADVAL )
441                      CALL PZFILLPAD( ICTXT, LW2-IPOSTPAD, 1,
443      $                               LW2-IPOSTPAD, IPREPAD,
444      $                               IPOSTPAD, PADVAL )
456      $                               IPREPAD, IPOSTPAD, PADVAL )
459      $                               LWORK, IPREPAD, IPOSTPAD,
462      $                               LW2-IPOSTPAD, 1,
463      $                               MEM( IPW2-IPREPAD ), LW2-IPOSTPAD,
464      $                               IPREPAD, IPOSTPAD, PADVAL )
491                         IPB0 = IPB +  DESCB( LLD_ )*MYRHS + IPOSTPAD +
493                         IPFERR = IPB0 +  DESCB( LLD_ )*MYRHS + IPOSTPAD
495                         IPBERR = MYRHS + IPFERR + IPOSTPAD + IPREPAD
496                         IPW = MYRHS + IPBERR + IPOSTPAD + IPREPAD
498                         IPW = IPB +  DESCB( LLD_ )*MYRHS + IPOSTPAD +
508                         WORKSIZ = MAX( WORKSIZ-IPOSTPAD,
513                         WORKSIZ = IPOSTPAD + WORKSIZ
515                         WORKSIZ = IPOSTPAD
551      $                                  IPREPAD, IPOSTPAD, PADVAL )
566      $                                     IPOSTPAD, PADVAL )
569      $                                     IPREPAD, IPOSTPAD,
573      $                                     IPREPAD, IPOSTPAD,
596      $                                  IPREPAD, IPOSTPAD, PADVAL )
600      $                                  IPOSTPAD, PADVAL )
602                         CALL PZFILLPAD( ICTXT, WORKSIZ-IPOSTPAD, 1,
604      $                                  WORKSIZ-IPOSTPAD, IPREPAD,
605      $                                  IPOSTPAD, PADVAL )
622      $                                  IPOSTPAD, PADVAL )
624      $                                  WORKSIZ-IPOSTPAD, 1,
626      $                                  WORKSIZ-IPOSTPAD, IPREPAD,
627      $                                  IPOSTPAD, PADVAL )
650                            IPW2  = IPW + LWORK + IPOSTPAD + IPREPAD
653      $                           IPOSTPAD
679      $                                        LWORK, IPREPAD, IPOSTPAD,
681                               CALL PZFILLPAD( ICTXT, LW2-IPOSTPAD,
683      $                                        LW2-IPOSTPAD,
684      $                                        IPREPAD, IPOSTPAD,
705      $                                        IPOSTPAD, PADVAL )
709      $                                        IPOSTPAD, PADVAL )
713      $                                        IPOSTPAD, PADVAL )
718      $                                        IPOSTPAD, PADVAL )
722      $                                        IPREPAD, IPOSTPAD,
727      $                                        IPREPAD, IPOSTPAD,
731      $                                        LWORK, IPREPAD, IPOSTPAD,
734      $                                        LW2-IPOSTPAD, 1,
736      $                                        LW2-IPOSTPAD,
737      $                                        IPREPAD, IPOSTPAD,
740                               CALL PZFILLPAD( ICTXT, WORKSIZ-IPOSTPAD,
742      $                                        WORKSIZ-IPOSTPAD, IPREPAD,
743      $                                        IPOSTPAD, PADVAL )
761      $                                        IPOSTPAD, PADVAL )
763      $                                        WORKSIZ-IPOSTPAD, 1,
765      $                                        WORKSIZ-IPOSTPAD,
766      $                                        IPREPAD, IPOSTPAD,
842      $                            IPREPAD, IPOSTPAD, PADVAL )
844      $                            WORKSIZ-IPOSTPAD, 1,
845      $                            MEM( IPW-IPREPAD ), WORKSIZ-IPOSTPAD,
846      $                            IPREPAD, IPOSTPAD, PADVAL )