ACPARM.f90#34 IF ( IFC.GE.7 ) THEN #39 IF ( IFC.EQ.8 ) THEN ! 0 APARM.f90#42 IF ( IFC.EQ.6 ) THEN #47 ELSEIF ( IFC.EQ.7 ) THEN #52 ELSEIF ( IFC.EQ.8 ) THEN #57 ELSEIF ( IFC.EQ.9 ) THEN APPARM.f90#36 IF ( IFC.EQ.7 ) THEN ARVERT.f90#41 DO K = 4 , IFC - 1 , 2 AVETIM.f90#38 IF ( IFC.LT.3 ) CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) #41 DO I = 3 , IFC #57 IF ( IFC.GT.NAVE+3 ) CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 3 #60 IF ( IFC.GT.NAVE+2 ) CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #65 DO I = 3 , IFC COUNIT.f90#31 IF ( IFC.LE.2 ) THEN #35 ELSEIF ( IFC.LT.5 ) THEN #39 ELSEIF ( IFC.GT.5 ) THEN DAYRNG.f90#41 IF ( IFC.LT.3 ) THEN #45 DO I = 3 , IFC ! 0 DEBOPT.f90#35 IF ( IFC.LT.3 ) THEN #38 ELSEIF ( IFC.GT.6 ) THEN #44 DO I = 3 , IFC ! 0 #54 IF ( IFC.EQ.3 .AND. DEBUG ) THEN ! 0 #56 ELSEIF ( IFC.EQ.3 .AND. METEOR ) THEN #58 ELSEIF ( IFC.EQ.4 .AND. DEBUG .AND. METEOR ) THEN #61 ELSEIF ( IFC.EQ.4 .AND. DEBUG ) THEN #63 ELSEIF ( IFC.EQ.4 .AND. METEOR ) THEN #65 ELSEIF ( IFC.EQ.5 .AND. DEBUG .AND. METEOR ) THEN #73 ELSEIF ( IFC.EQ.6 .AND. (DEBUG) .AND. METEOR ) THEN DEFINE.f90#56 IFC = 2 ! 816 #73 IFC = IFC + 1 #75 LOCB(IFC) = I #81 LOCE(IFC) = I - 1 #86 IF ( INFLD .AND. I.EQ.ISTRG ) LOCE(IFC) = ISTRG ! 97920 DISCAR.f90#41 IF ( IFC.LT.4 ) THEN #45 ELSEIF ( IFC.GT.7 ) THEN #49 ELSEIF ( ELEV .AND. FLGPOL .AND. IFC.LT.7 ) THEN #52 ELSEIF ( ELEV .AND. .NOT.FLGPOL .AND. IFC.LT.6 ) THEN #55 ELSEIF ( ELEV .AND. .NOT.FLGPOL .AND. IFC.GT.6 ) THEN #58 ELSEIF ( FLGPOL .AND. .NOT.ELEV .AND. IFC.GT.5 ) THEN #61 ELSEIF ( .NOT.ELEV .AND. .NOT.FLGPOL .AND. IFC.GT.4 ) THEN #95 IF ( IFC.GE.5 ) THEN ! 0 #104 IF ( IFC.GE.6 ) THEN ! 0 #113 IF ( IFC.EQ.7 ) THEN ! 0 #123 IF ( IFC.GE.5 ) THEN ! 0 #132 IF ( IFC.GE.6 ) THEN ! 0 #142 IF ( IFC.EQ.5 ) THEN ! 0 #150 ELSEIF ( IFC.EQ.7 ) THEN DISPOL.f90#44 IF ( IFC.LT.5 ) THEN #48 ELSEIF ( IFC.GT.8 ) THEN #52 ELSEIF ( ELEV .AND. FLGPOL .AND. IFC.LT.8 ) THEN #55 ELSEIF ( ELEV .AND. .NOT.FLGPOL .AND. IFC.LT.7 ) THEN #58 ELSEIF ( ELEV .AND. .NOT.FLGPOL .AND. IFC.GT.7 ) THEN #61 ELSEIF ( FLGPOL .AND. .NOT.ELEV .AND. IFC.GT.6 ) THEN #64 ELSEIF ( .NOT.ELEV .AND. .NOT.FLGPOL .AND. IFC.GT.5 ) THEN #97 IF ( IFC.GE.6 ) THEN ! 0 #106 IF ( IFC.GE.7 ) THEN ! 0 #115 IF ( IFC.EQ.8 ) THEN ! 0 #125 IF ( IFC.GE.6 ) THEN ! 0 #134 IF ( IFC.GE.7 ) THEN ! 0 #144 IF ( IFC.EQ.6 ) THEN ! 0 #152 ELSEIF ( IFC.EQ.8 ) THEN #173 IF ( IFC.GE.6 .AND. (ELTYPE.EQ.'FEET' .OR. REELEV.EQ.'FEET') ) & DPUNIT.f90#32 IF ( IFC.LE.2 ) THEN #36 ELSEIF ( IFC.LT.5 ) THEN #40 ELSEIF ( IFC.GT.5 ) THEN DSBLDG.f90#37 IF ( IFC.LE.2 ) THEN #41 ELSEIF ( IFC.EQ.3 ) THEN DSFILL.f90#38 DO K = 4 , IFC #63 DO K = 4 , IFC #91 DO K = 4 , IFC #118 DO K = 4 , IFC #142 DO K = 4 , IFC EDECAY.f90#30 IF ( IFC.LE.2 ) THEN #34 ELSEIF ( IFC.GT.3 ) THEN EFFILL.f90#32 DO K = 5 , IFC EMUNIT.f90#30 IF ( IFC.LE.2 ) THEN #34 ELSEIF ( IFC.LT.5 ) THEN #38 ELSEIF ( IFC.GT.5 ) THEN EMVARY.f90#43 IF ( IFC.LE.2 ) THEN #47 ELSEIF ( IFC.EQ.3 ) THEN #51 ELSEIF ( IFC.LT.5 ) THEN ERRFIL.f90#33 IF ( IFC.EQ.3 ) THEN #36 ELSEIF ( IFC.GT.3 ) THEN EVCART.f90#40 IF ( IFC.LT.8 ) THEN #44 ELSEIF ( IFC.GT.9 ) THEN EVLOC.f90#34 IF ( IFC.EQ.2 ) THEN #38 ELSEIF ( IFC.LT.8 ) THEN #42 ELSEIF ( IFC.GT.10 ) THEN #78 IF ( IFC.GE.8 ) THEN ! 0 #98 IF ( IFC.EQ.10 ) THEN ! 0 EVNTFL.f90#33 IF ( IFC.EQ.3 ) THEN #37 ELSEIF ( IFC.EQ.4 ) THEN #41 ELSEIF ( IFC.GT.4 ) THEN EVPER.f90#48 IF ( IFC.EQ.2 ) THEN ! 0 #52 ELSEIF ( IFC.LT.6 ) THEN #56 ELSEIF ( IFC.GT.7 ) THEN FLAGDF.f90#37 IF ( IFC.EQ.3 ) THEN #55 ELSEIF ( IFC.GT.3 ) THEN FLGHGT.f90#39 DO I = 1 , IFC #44 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #49 ELSEIF ( IFC.EQ.ISC ) THEN #66 DO I = ISC + 1 , IFC GASDEP.f90#43 IF ( IFC.LE.2 ) THEN #47 ELSEIF ( IFC.LT.7 ) THEN #51 ELSEIF ( IFC.GT.7 ) THEN GDDEF.f90#30 IF ( IFC.LE.2 ) THEN #34 ELSEIF ( IFC.LT.5 ) THEN #38 ELSEIF ( IFC.GT.6 ) THEN #76 IF ( IFC.EQ.6 ) THEN GDLAND.f90#32 IF ( IFC.LE.2 ) THEN #36 ELSEIF ( IFC.LT.3 ) THEN #40 ELSEIF ( IFC.GT.38 ) THEN #47 DO I = 3 , IFC GDSEAS.f90#31 IF ( IFC.LE.2 ) THEN #35 ELSEIF ( IFC.LT.3 ) THEN #39 ELSEIF ( IFC.GT.14 ) THEN #46 DO I = 3 , IFC GENCAR.f90#36 DO I = 1 , IFC #41 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #46 ELSEIF ( IFC.GT.ISC+5 ) THEN #51 ELSEIF ( IFC.LT.ISC+5 ) THEN GENPOL.f90#35 DO I = 1 , IFC #40 IF ( IFC.EQ.ISC-1 ) THEN ! 3 #45 ELSEIF ( IFC.LT.ISC+2 ) THEN #50 ELSEIF ( IFC.GT.ISC+2 ) THEN GETFLD.f90#36 DO I = 1 , IFC GVSUBD.f90#30 IF ( IFC.LE.2 ) THEN #34 ELSEIF ( IFC.LT.3 ) THEN #38 ELSEIF ( IFC.GT.3 ) THEN HILHGT.f90#34 DO I = 1 , IFC #39 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #44 ELSEIF ( IFC.EQ.ISC ) THEN #61 DO I = ISC + 1 , IFC HQREAD.f90#59 IF ( IFC.LT.7 ) THEN #89 IF ( IFC.GE.8 ) THEN #98 IF ( IFC.EQ.10 ) THEN ! 0 HREMIS.f90#37 IF ( IFC.GE.4 ) THEN #73 DO I = 4 , IFC ! 0 HRQEXT.f90#54 IF ( IFC.LT.7 ) THEN #80 IF ( IFC.GE.8 ) THEN #88 IF ( SRCTYP(IS).EQ.'POINT' .AND. IFC.EQ.10 ) THEN ! 0 INCLUD.f90#56 IF ( IFC.EQ.3 ) THEN #61 ELSEIF ( IFC.GT.4 ) THEN INITFL.f90#40 ELSEIF ( IFC.EQ.3 ) THEN #43 ELSEIF ( IFC.GT.3 ) THEN INPPDM.f90#47 DO K = 4 , IFC #87 DO K = 4 , IFC INPPDN.f90#47 DO K = 4 , IFC #90 DO K = 4 , IFC INPPHI.f90#45 DO K = 4 , IFC #88 DO K = 4 , IFC MAIN1.f90#197 INTEGER :: LOCB(IFMAX) , LOCE(IFMAX) , IFC , IDC1 , IPNUM , IPPNUM METH_2.f90#36 IF ( IFC.LE.2 ) THEN #40 ELSEIF ( IFC.LT.5 ) THEN #44 ELSEIF ( IFC.GT.5 ) THEN MODOPT.f90#59 IF ( IFC.LT.3 ) THEN #62 ELSEIF ( IFC.GT.14 ) THEN #68 DO I = 3 , IFC ! 3 #85 DO I = 3 , IFC ! 3 #93 DO I = 3 , IFC MYEAR.f90#40 ELSEIF ( IFC.EQ.4 ) THEN #52 ELSEIF ( IFC.EQ.5 ) THEN #66 ELSEIF ( IFC.GT.5 ) THEN #69 ELSEIF ( IFC.EQ.3 .AND. FIELD(3).EQ.'H6H' ) THEN #72 ELSEIF ( IFC.EQ.3 .AND. FIELD(3).NE.'H6H' ) THEN #75 ELSEIF ( IFC.LT.3 ) THEN NO2EQ.f90#30 IF ( IFC.LE.2 ) THEN #34 ELSEIF ( IFC.GT.3 ) THEN NO2RAT.f90#37 IF ( IFC.LE.2 ) THEN #41 ELSEIF ( IFC.LT.4 ) THEN #45 ELSEIF ( IFC.GT.4 ) THEN O3FIL.f90#33 IF ( IFC.LE.2 ) THEN #37 ELSEIF ( IFC.LT.3 ) THEN #41 ELSEIF ( IFC.GT.5 ) THEN #55 IF ( IFC.GE.4 ) THEN ! 0 #67 IF ( IFC.EQ.5 ) THEN ! 0 O3VAL.f90#30 IF ( IFC.LE.2 ) THEN #34 ELSEIF ( IFC.GT.4 ) THEN #52 IF ( IFC.EQ.4 ) THEN OEVENT.f90#31 IF ( IFC.EQ.2 ) THEN #35 ELSEIF ( IFC.GT.3 ) THEN OLMGRP.f90#35 IF ( IFC.LE.2 ) THEN #39 ELSEIF ( IFC.LE.3 .AND. FIELD(3).NE.'ALL' ) THEN #73 DO I = 4 , IFC ! 0 ONDATA.f90#35 IF ( IFC.EQ.2 ) THEN #39 ELSEIF ( IFC.LT.4 ) THEN #43 ELSEIF ( IFC.GT.7 ) THEN #65 299 IF ( IFC.GE.5 ) THEN ! 0 #72 IF ( IFC.EQ.7 ) THEN ! 0 OPARM.f90#42 IF ( IFC.EQ.9 ) AANGLE(ISDX) = TEMP(6) OUDALY.f90#33 IF ( IFC.EQ.2 ) THEN #37 ELSEIF ( IFC.GT.NUMAVE+2 ) THEN #52 DO I = 3 , IFC ! 0 OUEVAL.f90#33 IF ( IFC.EQ.2 ) THEN #37 ELSEIF ( IFC.LT.4 ) THEN #41 ELSEIF ( IFC.GT.5 ) THEN #75 IF ( IFC.EQ.5 ) THEN ! 0 OUHIGH.f90#49 IF ( IFC.EQ.2 ) THEN ! 3 #53 ELSEIF ( IFC.EQ.3 ) THEN #57 ELSEIF ( IFC.GT.13 ) THEN #142 DO I = 4 , IFC ! 3 OUMXFL.f90#38 IF ( IFC.EQ.2 ) THEN #42 ELSEIF ( IFC.LT.6 ) THEN #46 ELSEIF ( IFC.GT.7 ) THEN #129 IF ( IFC.EQ.7 ) THEN ! 0 OUMXVL.f90#34 IF ( IFC.EQ.2 ) THEN #38 ELSEIF ( IFC.EQ.3 ) THEN #42 ELSEIF ( IFC.GT.4 ) THEN OUPLOT.f90#40 IF ( IFC.EQ.2 ) THEN #44 ELSEIF ( IFC.LT.5 ) THEN #48 ELSEIF ( IFC.GT.7 ) THEN #157 IF ( IFC.EQ.7 ) THEN ! 0 OUPOST.f90#49 IF ( IFC.EQ.2 ) THEN #53 ELSEIF ( IFC.LT.6 ) THEN #57 ELSEIF ( IFC.GT.7 ) THEN #156 IF ( IFC.EQ.7 ) THEN ! 0 OURANK.f90#32 IF ( IFC.EQ.2 ) THEN #36 ELSEIF ( IFC.LT.5 ) THEN #40 ELSEIF ( IFC.GT.6 ) THEN #123 IF ( IFC.EQ.6 ) THEN ! 0 OUSEAS.f90#33 IF ( IFC.GT.5 ) THEN #76 IF ( IFC.EQ.5 ) THEN ! 0 OUTOXX.f90#39 IF ( IFC.EQ.2 ) THEN #43 ELSEIF ( IFC.LT.5 ) THEN #47 ELSEIF ( IFC.GT.6 ) THEN #118 IF ( IFC.EQ.6 ) THEN ! 0 PARTDEP.f90#35 IF ( IFC.LE.2 ) THEN #39 ELSEIF ( IFC.EQ.3 ) THEN PERPLT.f90#39 IF ( IFC.GT.6 ) THEN #82 IF ( IFC.EQ.6 ) THEN ! 0 PERPST.f90#36 IF ( IFC.GT.7 ) THEN #90 IF ( IFC.EQ.7 ) THEN ! 0 POLDST.f90#31 DO I = 1 , IFC #36 IF ( IFC.EQ.ISC-1 ) THEN ! 3 #45 DO I = ISC , IFC POLLID.f90#30 IF ( IFC.LE.2 ) THEN #34 ELSEIF ( IFC.GT.3 ) THEN POLORG.f90#34 DO I = 1 , IFC #39 IF ( IFC.EQ.ISC-1 ) THEN ! 3 #44 ELSEIF ( IFC.GT.ISC+1 ) THEN #51 IF ( IFC.EQ.ISC ) THEN ! 3 PRBASE.f90#35 IF ( IFC.EQ.3 .OR. IFC.EQ.4 ) THEN #42 IF ( IFC.EQ.4 .AND. FIELD(4).EQ.'FEET' ) THEN ! 3 #44 ELSEIF ( IFC.EQ.4 .AND. FIELD(4).NE.'METERS' ) THEN #55 ELSEIF ( IFC.GT.4 ) THEN PREBOUND.f90#36 IF ( IFC.EQ.2 ) THEN #39 ELSEIF ( IFC.EQ.3 ) THEN PRECART.f90#31 IF ( IFC.LT.3 ) GOTO 999 PREGENCAR.f90#36 DO I = 1 , IFC #41 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #45 ELSEIF ( IFC.GT.ISC+5 ) THEN #49 ELSEIF ( IFC.LT.ISC+5 ) THEN PREGENPOL.f90#35 DO I = 1 , IFC #40 IF ( IFC.EQ.ISC-1 ) THEN ! 3 #44 ELSEIF ( IFC.LT.ISC+2 ) THEN #48 ELSEIF ( IFC.GT.ISC+2 ) THEN PREINCLUD.f90#55 IF ( IFC.EQ.3 ) THEN #60 ELSEIF ( IFC.GT.4 ) THEN PREPOLDST.f90#31 DO I = 1 , IFC #36 IF ( IFC.EQ.ISC-1 ) THEN ! 3 #44 DO I = ISC , IFC PREPOLR.f90#30 IF ( IFC.LT.3 ) GOTO 999 PRERADRNG.f90#31 DO I = 1 , IFC #36 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #44 DO I = ISC , IFC PRESET.f90#135 DO I = 3 , IFC ! 3 #149 DO I = 3 , IFC ! 3 #176 DO I = 4 , IFC ! 3 PREXYPNTS.f90#32 DO I = 1 , IFC ! 0 #37 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #44 DO I = ISC , IFC #55 DO I = 1 , IFC ! 0 #60 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #67 DO I = ISC , IFC PROFIL.f90#33 IF ( IFC.EQ.3 ) THEN #37 ELSEIF ( IFC.EQ.4 ) THEN #53 ELSEIF ( IFC.GT.4 ) THEN RADRNG.f90#31 DO I = 1 , IFC #36 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #45 DO I = ISC , IFC RECART.f90#34 IF ( IFC.LT.3 ) THEN REELUN.f90#34 IF ( IFC.EQ.3 ) THEN #43 ELSEIF ( IFC.GT.3 ) THEN REPOLR.f90#30 IF ( IFC.LT.3 ) THEN RUNNOT.f90#33 IF ( IFC.EQ.3 ) THEN #42 ELSEIF ( IFC.GT.3 ) THEN SAVEFL.f90#36 ELSEIF ( IFC.EQ.3 ) THEN #41 ELSEIF ( IFC.EQ.4 ) THEN #49 ELSEIF ( IFC.EQ.5 ) THEN #57 ELSEIF ( IFC.GT.5 ) THEN SCIMIT.f90#37 IF ( IFC.EQ.6 .OR. IFC.EQ.8 ) THEN #106 IF ( IFC.EQ.8 ) THEN ! 0 #114 ELSEIF ( IFC.GT.8 ) THEN SET_WINDOW.f90#42 IF ( IFC.LT.4 ) THEN #44 ELSEIF ( IFC.GT.7 ) THEN SFDATA.f90#40 IF ( IFC.EQ.2 ) THEN #44 ELSEIF ( IFC.LT.4 ) THEN #48 ELSEIF ( IFC.GT.7 ) THEN #76 299 IF ( IFC.GE.5 ) THEN ! 3 #83 IF ( IFC.EQ.7 ) THEN ! 3 SOELUN.f90#34 IF ( IFC.EQ.3 ) THEN #43 ELSEIF ( IFC.GT.3 ) THEN SOGRP.f90#35 IF ( IFC.LE.2 ) THEN #39 ELSEIF ( IFC.LE.3 .AND. FIELD(3).NE.'ALL' ) THEN #72 DO I = 4 , IFC ! 0 SOLOCA.f90#37 IF ( IFC.LE.2 ) THEN #41 ELSEIF ( IFC.LT.6 ) THEN #45 ELSEIF ( IFC.GT.7 ) THEN #79 IF ( IFC.EQ.7 ) THEN SOPARM.f90#40 IF ( IFC.LE.2 ) THEN #44 ELSEIF ( IFC.EQ.3 ) THEN #63 DO I = 4 , IFC ! 27 #72 IF ( IFC.EQ.3 ) THEN ! 9 #76 ELSEIF ( IFC.LT.8 ) THEN #80 ELSEIF ( IFC.GT.8 ) THEN #87 IF ( IFC.EQ.3 ) THEN ! 9 #91 ELSEIF ( IFC.LT.7 ) THEN #95 ELSEIF ( IFC.GT.7 ) THEN #102 IF ( IFC.EQ.3 ) THEN ! 9 #106 ELSEIF ( IFC.LT.6 ) THEN #110 ELSEIF ( IFC.GT.9 ) THEN #117 IF ( IFC.EQ.3 ) THEN ! 0 #121 ELSEIF ( IFC.LT.6 ) THEN #125 ELSEIF ( IFC.GT.7 ) THEN #132 IF ( IFC.EQ.3 ) THEN ! 0 #136 ELSEIF ( IFC.LT.6 ) THEN #140 ELSEIF ( IFC.GT.8 ) THEN #148 IF ( IFC.EQ.3 ) THEN ! 0 #152 ELSEIF ( IFC.LT.8 ) THEN #156 ELSEIF ( IFC.GT.9 ) THEN STAEND.f90#44 IF ( IFC.EQ.8 ) THEN #119 ELSEIF ( IFC.EQ.10 ) THEN #207 ELSEIF ( IFC.GT.8 ) THEN SURFIL.f90#33 IF ( IFC.EQ.3 ) THEN #37 ELSEIF ( IFC.EQ.4 ) THEN #53 ELSEIF ( IFC.GT.4 ) THEN TERFIL.f90#33 IF ( IFC.EQ.3 ) THEN #36 ELSEIF ( IFC.GT.3 ) THEN TERHGT.f90#40 DO I = 1 , IFC #45 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #50 ELSEIF ( IFC.EQ.ISC ) THEN #67 DO I = ISC + 1 , IFC TERLOC.f90#34 IF ( IFC.EQ.4 .OR. IFC.EQ.5 ) THEN #47 IF ( IFC.EQ.5 ) THEN ! 0 #59 ELSEIF ( IFC.GT.5 ) THEN TGELUN.f90#34 IF ( IFC.EQ.3 ) THEN #43 ELSEIF ( IFC.GT.3 ) THEN UADATA.f90#40 IF ( IFC.EQ.2 ) THEN #44 ELSEIF ( IFC.LT.4 ) THEN #48 ELSEIF ( IFC.GT.7 ) THEN #76 299 IF ( IFC.GE.5 ) THEN ! 3 #83 IF ( IFC.EQ.7 ) THEN ! 3 URBANS.f90#35 IF ( IFC.LE.2 ) THEN #42 DO I = 3 , IFC ! 0 URBOPT.f90#42 IF ( IFC.LT.3 ) THEN #46 ELSEIF ( IFC.GT.5 ) THEN #50 ELSEIF ( IFC.GE.3 ) THEN #60 IF ( IFC.GE.4 ) URBNAM = FIELD(4) ! 0 #62 IF ( IFC.EQ.5 ) THEN WDROTA.f90#34 IF ( IFC.EQ.3 ) THEN #43 ELSEIF ( IFC.GT.3 ) THEN WSCATS.f90#35 IF ( IFC.EQ.7 ) THEN #37 DO I = 3 , IFC ! 0 #53 ELSEIF ( IFC.GT.7 ) THEN XYPNTS.f90#35 DO I = 1 , IFC ! 0 #40 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #48 DO I = ISC , IFC #74 DO I = 1 , IFC ! 0 #79 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #88 DO I = ISC , IFC
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