APARM.f90#135 & + (AYINIT(ISDX)*SIN(AANGLE(ISDX)*DTORAD)) #137 & + (AYINIT(ISDX)*COS(AANGLE(ISDX)*DTORAD)) #140 & + (AXINIT(ISDX)*COS(AANGLE(ISDX)*DTORAD)) #142 & - (AXINIT(ISDX)*SIN(AANGLE(ISDX)*DTORAD)) #145 & - (AYINIT(ISDX)*SIN(AANGLE(ISDX)*DTORAD)) #147 & - (AYINIT(ISDX)*COS(AANGLE(ISDX)*DTORAD)) DISPOL.f90#171 AXR(I1+1) = AXS(ISDX) + RANGE*SIN(DIRECT*DTORAD) ! 0 #172 AYR(I2+1) = AYS(ISDX) + RANGE*COS(DIRECT*DTORAD) EVLOC.f90#114 AXR(ISDX) = SETAXR*SIN(SETAYR*DTORAD) ! 0 #115 AYR(ISDX) = SETAXR*COS(SETAYR*DTORAD) MAIN1.f90#76 & RTPIBY2 = 1.2533141 , DTORAD = 0.017453293 , & METINI.f90#140 WDSIN = SIN(WDIR*DTORAD) ! 27396 #141 WDCOS = COS(WDIR*DTORAD) OPARM.f90#112 & + (AYINIT(ISDX)*SIN(AANGLE(ISDX)*DTORAD)) #114 & + (AYINIT(ISDX)*COS(AANGLE(ISDX)*DTORAD)) #117 & + (AXINIT(ISDX)*COS(AANGLE(ISDX)*DTORAD)) #119 & - (AXINIT(ISDX)*SIN(AANGLE(ISDX)*DTORAD)) #122 & - (AYINIT(ISDX)*SIN(AANGLE(ISDX)*DTORAD)) #124 & - (AYINIT(ISDX)*COS(AANGLE(ISDX)*DTORAD)) PCALC.f90#376 WDSIN = SIN(WDIR*DTORAD) ! 9132 #377 WDCOS = COS(WDIR*DTORAD) PFLCNV.f90#76 SIGRAD = PFLSA(LEVEL)*DTORAD ! 0 PITEFF.f90#74 EFFWID = PITFRA**(1.0-(COS(THETA*DTORAD))**2)*PITWID #75 EFFLEN = PITFRA**((COS(THETA*DTORAD))**2)*PITLEN #106 XTEMP(2) = XTEMP(1) + (YEFF*SIN(EFFANG*DTORAD)) #107 YTEMP(2) = YTEMP(1) + (YEFF*COS(EFFANG*DTORAD)) #109 XTEMP(3) = XTEMP(2) + (XEFF*COS(EFFANG*DTORAD)) #110 YTEMP(3) = YTEMP(2) - (XEFF*SIN(EFFANG*DTORAD)) #112 XTEMP(4) = XTEMP(3) - (YEFF*SIN(EFFANG*DTORAD)) #113 YTEMP(4) = YTEMP(3) - (YEFF*COS(EFFANG*DTORAD)) SETPOL.f90#60 YTEMP = YCOORD(J,INNET)*DTORAD ! 432