src/lucia/lucia_akbk.F

608         DO IGAS = 1, NGAS
609           IDIFF = IDIFF + ABS(IOCCLS(IGAS,IL)-IOCCLS(IGAS,IR))
4643      &   '   GAS',IGAS,gasocc(IGAS,1),gasocc(IGAS,2),yesno
4661        DO IGAS = 1, ntrgas
4663      &  '  GAS',IGAS,'        ',
4664      &  (ngas_gnsym(igensm,IGAS), igensm = 1, ngensmob)
5018        DO IGAS = 1, NGAS
5019         ITYP = IHPVGAS(IGAS)
5020         IDACTSPC(IGAS) = 0
5021         IF(ITYP.EQ.1.AND.IDENS_IN.EQ.1) IDACTSPC(IGAS) = 1
5022         IF(ITYP.EQ.2.AND.IDENS_SEC.EQ.1) IDACTSPC(IGAS) = 1
5023         IF(ITYP.EQ.3.AND.IDENS_AC.EQ.1) IDACTSPC(IGAS) = 1
5132       DO IGAS = 1, NGAS
5134      &  '        GAS',IGAS,'          ',
5135      &  (NGSSH(IRREP,IGAS),IRREP = 1, NIRREP)
5157         DO IGAS = 1, NGAS
5159      &    '   GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC)
5716       DO IGAS = 1, NGAS
5718      &  '        GAS',IGAS,'          ',
5719      &  (NGSSH(IRREP,IGAS),IRREP = 1, NIRREP)
5741         DO IGAS = 1, NGAS
5743      &    '   GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC)
6007       DO IGAS = 1, NGAS
6009      &  '        GAS',IGAS,'          ',
6010      &  (NGSSH(IRREP,IGAS),IRREP = 1, NIRREP)
6029         DO IGAS = 1, NGAS
6031      &    '   GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC)
6115       DO IGAS = 1, NGAS
6117      &  '        GAS',IGAS,'          ',
6118      &  (NGSSH(IRREP,IGAS),IRREP = 1, NIRREP)
6206       DO IGAS = 1, NGAS
6208      &  '        GAS',IGAS,'          ',
6209      &  (NGSSH(IRREP,IGAS),IRREP = 1, NIRREP)
6231         DO IGAS = 1, NGAS
6233      &    '   GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC)
6471       DO IGAS = 1, NGAS
6473      &  '        GAS',IGAS,'          ',
6474      &  (NGSSH(IRREP,IGAS),IRREP = 1, NIRREP)
6496         DO IGAS = 1, NGAS
6498      &    '   GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC)
6570       DO IGAS = 1, NGAS-1
6571        IGSOCCX(IGAS,1,ICISPC) = 0
6572        IGSOCCX(IGAS,2,ICISPC) = IGSOCCX(NGAS,2,ICISPC)
6594       DO IGAS = 1, NGAS
6596      &  '        GAS',IGAS,'          ',
6597      &  (NGSSH(IRREP,IGAS),IRREP = 1, NIRREP)
6615         DO IGAS = 1, NGAS
6617      &    '   GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC)
6659       DO IGAS = 1, NGAS
6662         ISUM = ISUM + NGSSH(IRREP,IGAS)
6664          IBREAKGAS = IGAS
6715       DO IGAS = 1, NGAS
6717      &  '        GAS',IGAS,'          ',
6718      &  (NGSSH(IRREP,IGAS),IRREP = 1, NIRREP)
6740         DO IGAS = 1, NGAS
6742      &    '   GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC)
6949      &                        '  | ', (NELFSPGP(IGAS,IA), igas = 1, 5),
6950      &                        '  | ', (NELFSPGP(IGAS,IB), igas = 1, 5)
8031       integer ITP, IGAS, ISPGRP, jspgrp, ispgrpa, ispgrpb,
8415         DO IGAS = 1, NGAS
8417      &   + ABS(NELFSPGP(IGAS,ISPGRPA)-NELFSPGP(IGAS,ISPGRPB))
8564       integer ITP, IGAS, ISPGRP, jspgrp, ispgrpa, ispgrpb,
8587        DO IGAS = 1, NGAS
8588         IF (NELFSPGP(IGAS,ISPGRP).NE.0)
8596        DO IGAS = 1, NGAS
8597         IF (NELFSPGP(IGAS,ISPGRP).NE.0)
8830       integer ITP, IGAS, ISPGRP, jspgrp, ispgrpa, ispgrpb,