C
      COMMON /CLU/ LINPUT,LATOM,LATMOS,LOUT,
     * LTIME,LDUMS,LDUMI,LJOBLO,
C added 19 Feb 2019 PGJ
C 6jul22 update
     * LPCA,LDPASC,LDBDESC,LDB
