1 2 SUBROUTINE SINDEX(ARRIN,IDIM,ELEM,INDEXS,FIND) 3 !*********************************************************************** 4 ! SINDEX Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Search The Index of An Input Array Element 7 ! 8 ! PROGRAMMER: Jeff Wang, Roger Brode 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! INPUTS: Input Character Element 13 ! 14 ! OUTPUTS: Index Of This Element in An Array 15 ! 16 ! CALLED FROM: (This Is An Utility Programm) 17 !*********************************************************************** 18 ! 19 ! Variable Declarations 20 IMPLICIT NONE 21 22 INTEGER :: I , IDIM , INDEXS 23 CHARACTER*8 ARRIN(IDIM) , ELEM 24 CHARACTER MODNAM*6 25 LOGICAL FIND 26 27 ! Variable Initializations 28 MODNAM = 'SINDEX' ! 282 29 FIND = .FALSE. 30 I = 1 31 INDEXS = 0 32 33 DO WHILE ( .NOT.FIND .AND. I.LE.IDIM ) 34 IF ( ELEM.EQ.ARRIN(I) ) THEN ! 831 35 FIND = .TRUE. ! 255 36 INDEXS = I 37 ENDIF 38 I = I + 1 ! 831 39 ENDDO 40 41 CONTINUE ! 282 42 END
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