ALLSETUP.f90#99 & XCOORD(IXM,NNET),YCOORD(IYM,NNET),XORIG(NNET), & GENCAR.f90#95 YCOORD(J,INNET) = YINT + YDELTA*FLOAT(J-1) ! 0 GENPOL.f90#80 YCOORD(J,INNET) = (DIRINI+DIRINC*FLOAT(J-1)) ! 108 #81 IF ( YCOORD(J,INNET).GT.360. ) THEN #82 YCOORD(J,INNET) = YCOORD(J,INNET) - 360. ! 0 #83 ELSEIF ( YCOORD(J,INNET).LE.0. ) THEN #84 YCOORD(J,INNET) = YCOORD(J,INNET) + 360. ! 0 MAIN1.f90#443 REAL , ALLOCATABLE :: XCOORD(:,:) , YCOORD(:,:) , XORIG(:) , & PRTANN.f90#115 YCOVAL = YCOORD(NUMYPT(I)-K+1,I) #118 YCOVAL = YCOORD(K,I) #134 YCOVAL = YCOORD(NUMYPT(I)-K+1,I) #137 YCOVAL = YCOORD(K,I) PRTDAY.f90#104 YCOVAL = YCOORD(NUMYPT(I)-K+1,I) #107 YCOVAL = YCOORD(K,I) #123 YCOVAL = YCOORD(NUMYPT(I)-K+1,I) #126 YCOVAL = YCOORD(K,I) PRTPM10.f90#108 YCOVAL = YCOORD(NUMYPT(I)-K+1,I) #111 YCOVAL = YCOORD(K,I) #127 YCOVAL = YCOORD(NUMYPT(I)-K+1,I) #130 YCOVAL = YCOORD(K,I) PRTREC.f90#69 WRITE (IOUNIT,9040) (YCOORD(J,I),J=1,NUMYPT(I)) ! 3 #113 YCOVAL = YCOORD(NUMYPT(I)-K+1,I) #116 YCOVAL = YCOORD(K,I) #132 YCOVAL = YCOORD(NUMYPT(I)-K+1,I) #135 YCOVAL = YCOORD(K,I) #191 YCOVAL = YCOORD(NUMYPT(I)-K+1,I) #194 YCOVAL = YCOORD(K,I) #210 YCOVAL = YCOORD(NUMYPT(I)-K+1,I) #213 YCOVAL = YCOORD(K,I) #272 YCOVAL = YCOORD(NUMYPT(I)-K+1,I) #275 YCOVAL = YCOORD(K,I) #291 YCOVAL = YCOORD(NUMYPT(I)-K+1,I) #294 YCOVAL = YCOORD(K,I) RADRNG.f90#56 YCOORD(ISET,INNET) = FNUM ! 0 #57 IF ( YCOORD(ISET,INNET).GT.360. ) THEN #58 YCOORD(ISET,INNET) = YCOORD(ISET,INNET) - 360. ! 0 #59 ELSEIF ( YCOORD(ISET,INNET).LE.0. ) THEN #60 YCOORD(ISET,INNET) = YCOORD(ISET,INNET) + 360. ! 0 #64 IF ( FNUM.EQ.YCOORD(J,INNET) ) & SETCAR.f90#60 AYR(JSET) = YCOORD(J,INNET) SETPOL.f90#60 YTEMP = YCOORD(J,INNET)*DTORAD ! 432 SPRTHT.f90#107 YCOVAL = YCOORD(NUMYPT(I)-K+1,I) #110 YCOVAL = YCOORD(K,I) #130 YCOVAL = YCOORD(NUMYPT(I)-K+1,I) #133 YCOVAL = YCOORD(K,I) VARINI.f90#405 YCOORD(J,I) = 0.0 ! 108 XYPNTS.f90#97 YCOORD(JSET,INNET) = FNUM ! 0 #100 IF ( FNUM.EQ.YCOORD(J,INNET) ) &
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