PITEFF.f90#30
      REAL :: XTEMP(NVMAX) , YTEMP(NVMAX)
#37
      CALL AVERTS(XVERT,YVERT,XTEMP,YTEMP,NVERT+1)
#59
         WRITE (IOUNIT,8100) (XTEMP(II),YTEMP(II),II=1,NVERT)
#104
      YTEMP(1) = YVERT(IUPWND)
#107
      YTEMP(2) = YTEMP(1) + (YEFF*COS(EFFANG*DTORAD))
#110
      YTEMP(3) = YTEMP(2) - (XEFF*SIN(EFFANG*DTORAD))
#113
      YTEMP(4) = YTEMP(3) - (YEFF*COS(EFFANG*DTORAD))
#116
      YTEMP(5) = YVERT(IUPWND)
#121
      CALL AVERTS(XTEMP,YTEMP,XVERT,YVERT,NVERT+1)
#132
         WRITE (IOUNIT,8000) (XTEMP(II),YTEMP(II),II=1,NVERT)
#146
         YVERT(I) = YTEMP(I)
SETPOL.f90#28
      REAL :: YTEMP
#60
               YTEMP = YCOORD(J,INNET)*DTORAD                           !    432
#61
               AXR(ISET) = XINT + XCOORD(I,INNET)*SIN(YTEMP)
#62
               AYR(JSET) = YINT + XCOORD(I,INNET)*COS(YTEMP)

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