ERRHDL.f90#2      SUBROUTINE ERRHDL(PATHWY,MODNAM,INERTP,INERCD,INPMSG)


#25      CHARACTER ERRMG1*50 , PATHWY*2 , INERTP*1 , INERCD*3 , ICODE*3 ,  &


#44            WRITE (IERUNT,1111) PATHWY , INERTP , ICODE , ILINE ,       &


#68      WRITE (IERUNT,1111) PATHWY , INERTP , INERCD , ILINE , MODNAM(1:6)&


EV_SETUP.f90#41      CHARACTER INPFLD*2 , PATHWY(7)*2


#43      SUBROUTINE EXPATH(INPFLD,PATHWY,IPN,NOPATH)


#45      CHARACTER(LEN=2) , INTENT(IN) , DIMENSION(:) :: PATHWY


#119         PATHWY(1) = 'CO'                                               !      0


#120         PATHWY(2) = 'SO'


#121         PATHWY(3) = 'ME'


#122         PATHWY(4) = 'TG'


#123         PATHWY(5) = 'EV'


#124         PATHWY(6) = 'OU'


#125         PATHWY(7) = '**'


#126         CALL EXPATH(FIELD(1),PATHWY,7,NOPATH)


EXPATH.f90#2      SUBROUTINE EXPATH(INPFLD,PATHWY,IPN,NOPATH)


#28      CHARACTER(LEN=2) , INTENT(IN) , DIMENSION(:) :: PATHWY


#42            IF ( INPFLD.EQ.PATHWY(I) ) THEN                             !   1212


INCLUD.f90#33      CHARACTER INPFLD*2 , PATHWY(7)*2


#35      SUBROUTINE EXPATH(INPFLD,PATHWY,IPN,NOPATH)


#37      CHARACTER(LEN=2) , INTENT(IN) , DIMENSION(:) :: PATHWY


#109         PATHWY(1) = 'CO'                                               !      0


#110         PATHWY(2) = 'SO'


#111         PATHWY(3) = 'RE'


#112         PATHWY(4) = 'ME'


#113         PATHWY(5) = 'TG'


#114         PATHWY(6) = 'OU'


#115         PATHWY(7) = '**'


#116         CALL EXPATH(FIELD(1),PATHWY,7,NOPATH)


PREINCLUD.f90#32      CHARACTER INPFLD*2 , PATHWY(8)*2


#34      SUBROUTINE EXPATH(INPFLD,PATHWY,IPN,NOPATH)


#36      CHARACTER(LEN=2) , INTENT(IN) , DIMENSION(:) :: PATHWY


#99         PATHWY(1) = 'CO'                                               !      0


#100         PATHWY(2) = 'SO'


#101         PATHWY(3) = 'RE'


#102         PATHWY(4) = 'ME'


#103         PATHWY(5) = 'TG'


#104         PATHWY(6) = 'OU'


#105         PATHWY(7) = '**'


#106         PATHWY(8) = 'EV'


#107         CALL EXPATH(FIELD(1),PATHWY,8,NOPATH)


PRESET.f90#34      CHARACTER INPFLD*2 , PATHWY(8)*2


#36      SUBROUTINE EXPATH(INPFLD,PATHWY,IPN,NOPATH)


#38      CHARACTER(LEN=2) , INTENT(IN) , DIMENSION(:) :: PATHWY


#101         PATHWY(1) = 'CO'                                               !    375


#102         PATHWY(2) = 'SO'


#103         PATHWY(3) = 'RE'


#104         PATHWY(4) = 'ME'


#105         PATHWY(5) = 'TG'


#106         PATHWY(6) = 'OU'


#107         PATHWY(7) = '**'


#108         PATHWY(8) = 'EV'


#109         CALL EXPATH(FIELD(1),PATHWY,8,NOPATH)


SETUP.f90#47      CHARACTER INPFLD*2 , PATHWY(7)*2


#49      SUBROUTINE EXPATH(INPFLD,PATHWY,IPN,NOPATH)


#51      CHARACTER(LEN=2) , INTENT(IN) , DIMENSION(:) :: PATHWY


#125         PATHWY(1) = 'CO'                                               !    375


#126         PATHWY(2) = 'SO'


#127         PATHWY(3) = 'RE'


#128         PATHWY(4) = 'ME'


#129         PATHWY(5) = 'TG'


#130         PATHWY(6) = 'OU'


#131         PATHWY(7) = '**'


#132         CALL EXPATH(FIELD(1),PATHWY,7,NOPATH)




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