1 2 SUBROUTINE GETFLD 3 !*********************************************************************** 4 ! GETFLD Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Gets Contents of Fields on Runstream Input Image 7 ! 8 ! PROGRAMMER: Roger Brode, Jeff Wang 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! INPUTS: Input Runstream Card Image 13 ! 14 ! OUTPUTS: Contents of Fields on Card 15 ! 16 ! CALLED FROM: SETUP 17 !*********************************************************************** 18 ! 19 ! Variable Declarations 20 USE MAIN1 21 IMPLICIT NONE 22 CHARACTER MODNAM*12 23 24 SAVE 25 INTEGER :: I , J 26 CHARACTER WRTFRM*20 27 28 ! Variable Initializations 29 MODNAM = 'GETFLD' ! 816 30 31 ! Setup WRITE format for internal write to FIELD 32 ! based on the ILEN_FLD PARAMETER (set in MAIN1) 33 WRITE (WRTFRM,9004) ILEN_FLD 34 9004 FORMAT ('(',I3.3,'(A1:))') 35 36 DO I = 1 , IFC 37 IF ( LOCE(I)-LOCB(I).LE.(ILEN_FLD-1) ) THEN ! 5646 38 ! Field Satisfies Limit of ILEN_FLD Characters (set in MAIN1) 39 WRITE (FIELD(I),WRTFRM) (RUNST(J),J=LOCB(I),LOCE(I)) ! 5646 40 ELSE 41 ! Field Exceeds ILEN_FLD Character Limit 42 ! Truncate Field at ILEN_FLD Characters 43 WRITE (FIELD(I),WRTFRM) (RUNST(J),J=LOCB(I),LOCB(I)+ILEN_FLD& 44 & -1) 45 ENDIF 46 ENDDO 47 48 CONTINUE ! 816 49 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