ACPARM.f90#32 AHS(ISDX) = TEMP(2) #50 IF ( AHS(ISDX).LT.0.0 ) THEN #53 ELSEIF ( AHS(ISDX).GT.100.0 ) THEN ALLSETUP.f90#43 ALLOCATE (AXS(NSRC),AYS(NSRC),AZS(NSRC),AQS(NSRC),AHS(NSRC), & APARM.f90#41 AHS(ISDX) = TEMP(2) #69 IF ( AHS(ISDX).LT.0.0 ) THEN #72 ELSEIF ( AHS(ISDX).GT.100.0 ) THEN APPARM.f90#34 AHS(ISDX) = TEMP(2) #47 IF ( AHS(ISDX).LT.0.0 ) THEN #50 ELSEIF ( AHS(ISDX).GT.100.0 ) THEN EVALFL.f90#186 & AHS(ISRC) , ARCCL(I) , AFV , & MAIN1.f90#282 REAL , ALLOCATABLE :: AXS(:) , AYS(:) , AZS(:) , AQS(:) , AHS(:) ,& OPARM.f90#37 AHS(ISDX) = TEMP(2) #49 IF ( AHS(ISDX).LT.0.0 ) THEN #52 ELSEIF ( AHS(ISDX).GT.200.0 ) THEN #98 IF ( AHS(ISDX).GT.EFFDEP ) & PPARM.f90#32 AHS(ISDX) = TEMP(2) #42 IF ( AHS(ISDX).LT.0.0 ) THEN #45 ELSEIF ( AHS(ISDX).GT.600.0 ) THEN PRTSRC.f90#110 & AYS(I) , AZS(I) , AHS(I) , ATS(I) , & #141 & AYS(I) , AZS(I) , AHS(I) , ASYINI(I) , & #173 & AYS(I) , AZS(I) , AHS(I) , AXINIT(I) , & #205 & AYS(I) , AZS(I) , AHS(I) , RADIUS(I) , & #236 & AYS(I) , AZS(I) , AHS(I) , NVERTS(I) , & #269 & AYS(I) , AZS(I) , AHS(I) , AXINIT(I) , & SETSRC.f90#47 HS = AHS(ISRC) #58 HS = AHS(ISRC) #68 HS = AHS(ISRC) #91 HS = AHS(ISRC) #115 HS = AHS(ISRC) #141 EMIHGT = AHS(ISRC) SRCQA.f90#192 CALL LOCATE(GRIDHT,1,29,AHS(I),NDXSTK(I)) VARINI.f90#163 AHS(I) = 0.0 VPARM.f90#32 AHS(ISDX) = TEMP(2) #41 IF ( AHS(ISDX).LT.0.0 ) THEN #44 ELSEIF ( AHS(ISDX).GT.100.0 ) THEN
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