| ARVERT.f90#27 | CHARACTER SOID*8 |
| #35 | SOID = FIELD(3) |
| #38 | CALL SINDEX(SRCID,NSRC,SOID,ISDX,FIND) |
| CHK_ENDYR.f90#27 | CHARACTER SOID*8 |
| DISPOL.f90#32 | CHARACTER SOID*8 |
| #80 | SOID = FIELD(3) ! 0 |
| #166 | CALL SINDEX(SRCID,NSRC,SOID,ISDX,FIND) ! 0 |
| DSBLDG.f90#28 | CHARACTER(LEN=ILEN_FLD) :: SOID |
| #48 | SOID = FIELD(3) ! 225 |
| #49 | CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) |
| #54 | CALL SINDEX(SRCID,NSRC,SOID,ISDX,FIND) ! 225 |
| EMVARY.f90#34 | CHARACTER(LEN=ILEN_FLD) :: SOID |
| #58 | SOID = FIELD(3) ! 0 |
| #59 | CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) |
| #64 | CALL SINDEX(SRCID,NSRC,SOID,ISDX,FIND) ! 0 |
| GASDEP.f90#30 | CHARACTER(LEN=ILEN_FLD) :: SOID |
| #58 | SOID = FIELD(3) ! 0 |
| #59 | CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) |
| #63 | CALL SINDEX(SRCID,NSRC,SOID,ISDX,FIND) ! 0 |
| INPPDM.f90#30 | CHARACTER(LEN=ILEN_FLD) :: SOID |
| #39 | SOID = FIELD(3) |
| #40 | CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) |
| #44 | CALL SINDEX(SRCID,NSRC,SOID,ISDX,FIND) ! 0 |
| INPPDN.f90#30 | CHARACTER(LEN=ILEN_FLD) :: SOID |
| #39 | SOID = FIELD(3) |
| #40 | CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) |
| #44 | CALL SINDEX(SRCID,NSRC,SOID,ISDX,FIND) ! 0 |
| INPPHI.f90#28 | CHARACTER(LEN=ILEN_FLD) :: SOID |
| #37 | SOID = FIELD(3) |
| #38 | CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) |
| #42 | CALL SINDEX(SRCID,NSRC,SOID,ISDX,FIND) ! 0 |
| METH_2.f90#27 | CHARACTER(LEN=ILEN_FLD) :: SOID |
| #51 | SOID = FIELD(3) ! 0 |
| #52 | CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) |
| #56 | CALL SINDEX(SRCID,NSRC,SOID,ISDX,FIND) ! 0 |
| NO2RAT.f90#28 | CHARACTER(LEN=ILEN_FLD) :: SOID |
| #52 | SOID = FIELD(3) ! 0 |
| #53 | CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) |
| #57 | CALL SINDEX(SRCID,NSRC,SOID,ISDX,FIND) ! 0 |
| POLORG.f90#26 | CHARACTER SOID*8 |
| #53 | SOID = FIELD(ISC) ! 3 |
| #54 | CALL SINDEX(SRCID,NSRC,SOID,ISDX,FIND) |
| PREBOUND.f90#30 | CHARACTER SOID*8 |
| #44 | SOID = FIELD(3) ! 0 |
| #47 | IF ( SOID.NE.PXSOID ) THEN |
| #49 | PXSOID = SOID |
| SOLOCA.f90#29 | CHARACTER SOID*8 |
| #53 | SOID = FIELD(3) ! 27 |
| #54 | CALL SINDEX(SRCID,NSRC,SOID,INDEXS,FIND) |
| #109 | CALL ERRHDL(PATH,MODNAM,'E','310',SOID) ! 0 |
HyperKWIC - Version 1.00DD executed at 20:00 on 1 Mar 2018 | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use