ACPARM.f90#2 SUBROUTINE ACPARM(ISDX,TEMP) #26 REAL TEMP(IFMAX) #31 AQS(ISDX) = TEMP(1) #32 AHS(ISDX) = TEMP(2) #33 RADIUS(ISDX) = TEMP(3) #35 NVERTS(ISDX) = NINT(TEMP(4)) ! 0 #40 ASZINI(ISDX) = TEMP(5) ! 0 APARM.f90#2 SUBROUTINE APARM(ISDX,TEMP) #35 REAL TEMP(IFMAX) , AREA , SUM , SUMX , SUMY #40 AQS(ISDX) = TEMP(1) #41 AHS(ISDX) = TEMP(2) #43 AXINIT(ISDX) = TEMP(3) ! 0 #48 AXINIT(ISDX) = TEMP(3) ! 9 #49 AYINIT(ISDX) = TEMP(4) #53 AXINIT(ISDX) = TEMP(3) ! 0 #54 AYINIT(ISDX) = TEMP(4) #55 AANGLE(ISDX) = TEMP(5) #58 AXINIT(ISDX) = TEMP(3) ! 0 #59 AYINIT(ISDX) = TEMP(4) #60 AANGLE(ISDX) = TEMP(5) #61 ASZINI(ISDX) = TEMP(6) APPARM.f90#2 SUBROUTINE APPARM(ISDX,TEMP) #28 REAL TEMP(IFMAX) #33 AQS(ISDX) = TEMP(1) #34 AHS(ISDX) = TEMP(2) #35 NVERTS(ISDX) = NINT(TEMP(3)) #37 ASZINI(ISDX) = TEMP(4) ! 0 OPARM.f90#2 SUBROUTINE OPARM(ISDX,TEMP) #31 REAL TEMP(IFMAX) , EFFDEP #36 AQS(ISDX) = TEMP(1) #37 AHS(ISDX) = TEMP(2) #38 AXINIT(ISDX) = TEMP(3) #39 AYINIT(ISDX) = TEMP(4) #40 AVOLUM(ISDX) = TEMP(5) #42 IF ( IFC.EQ.9 ) AANGLE(ISDX) = TEMP(6) PPARM.f90#2 SUBROUTINE PPARM(ISDX,TEMP) #26 REAL TEMP(IFMAX) #31 AQS(ISDX) = TEMP(1) #32 AHS(ISDX) = TEMP(2) #33 ATS(ISDX) = TEMP(3) #34 AVS(ISDX) = TEMP(4) #35 ADS(ISDX) = TEMP(5) PSIDE2.f90#39 REAL :: DVAL , DVALD , TEMP , U1 , U2 , UAV , UBV , TMPVAL , & #63 TEMP = UASEGS(I) #65 UBSEGS(I) = TEMP PSIDE2_TOX.f90#48 REAL :: DVAL , DVALD , TEMP , U1 , U2 , UAV , UBV , TMPVAL , & #72 TEMP = UASEGS(I) #74 UBSEGS(I) = TEMP PWIDTH.f90#42 REAL :: XARG , WIDTH , VN , V1 , TEMP , GA(79) #88 TEMP = 10*VN + 40 #89 ITEMP = INT(TEMP) #95 IF ( ITEMP.GE.1 ) WIDTH = GA(ITEMP) + (TEMP-FLOAT(ITEMP)) & SOPARM.f90#33 REAL TEMP(IFMAX) #64 CALL STONUM(FIELD(I),ILEN_FLD,TEMP(I-3),IMIT) ! 117 #85 CALL PPARM(ISDX,TEMP) ! 9 #100 CALL VPARM(ISDX,TEMP) ! 9 #115 CALL APARM(ISDX,TEMP) ! 9 #130 CALL APPARM(ISDX,TEMP) ! 0 #145 CALL ACPARM(ISDX,TEMP) ! 0 #161 CALL OPARM(ISDX,TEMP) ! 0 VPARM.f90#2 SUBROUTINE VPARM(ISDX,TEMP) #26 REAL TEMP(IFMAX) #31 AQS(ISDX) = TEMP(1) #32 AHS(ISDX) = TEMP(2) #33 ASYINI(ISDX) = TEMP(3) #34 ASZINI(ISDX) = TEMP(4)
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