GENCAR.f90#85 XCOORD(I,INNET) = XINT + XDELTA*FLOAT(I-1) ! 0 #95 YCOORD(J,INNET) = YINT + YDELTA*FLOAT(J-1) ! 0 GENCIR.f90#34 ANGINC = 360.0/FLOAT(NSIDES) #39 TRIAREA = AREA/FLOAT(NSIDES) GENPOL.f90#80 YCOORD(J,INNET) = (DIRINI+DIRINC*FLOAT(J-1)) ! 108 NUMRISE.f90#209 XNP = FLOAT(NP) #345 IF ( FLOAT(NNP/NP).EQ.FLOAT(NNP)/XNP ) THEN #480 DELN = FLOAT(NN)/FLOAT(NTR) ! 0 #490 DELN = 2.*FLOAT(NN-NTR)/FLOAT(NTR*(NTR-1)) ! 6088 PWIDTH.f90#95 IF ( ITEMP.GE.1 ) WIDTH = GA(ITEMP) + (TEMP-FLOAT(ITEMP)) & STODBL.f90#56 CNUM = CNUM*10. + FLOAT(INDEX(NUMS,CHK)-1) ! 0 #59 FDC1 = FDEC*FLOAT(INDEX(NUMS,CHK)-1) STONUM.f90#51 CNUM = CNUM*10. + FLOAT(INDEX(NUMS,CHK)-1) ! 7014 #54 FDC1 = FDEC*FLOAT(INDEX(NUMS,CHK)-1) SUMTBL.f90#45 PERCENT = 100.*(FLOAT(IMSG)/FLOAT(NTOTHRS)) WAKE_DFSN.f90#164 DX = XRANGE/(FLOAT(NP)-ONE) #434 DELN = FLOAT(NPW)/FLOAT(NWAK) ! 150 #444 DELN = 2.*FLOAT(NPW-MXNTR)/FLOAT(MXNTR*(MXNTR-1)) ! 5174 #484 DELN = FLOAT(NPC)/FLOAT(NCAV) ! 116 #493 DELN = 2.*FLOAT(NPC-MXNTR)/FLOAT(MXNTR*(MXNTR-1)) ! 4490 WAKE_DFSN2.f90#169 DX = XRANGE/(FLOAT(NP)-ONE) #444 DELN = FLOAT(NPW)/FLOAT(NWAK) ! 150 #454 DELN = 2.*FLOAT(NPW-MXNTR)/FLOAT(MXNTR*(MXNTR-1)) ! 5174 #494 DELN = FLOAT(NPC)/FLOAT(NCAV) ! 116 #503 DELN = 2.*FLOAT(NPC-MXNTR)/FLOAT(MXNTR*(MXNTR-1)) ! 4490 WAKE_FQC.f90#61 XSTEP = XRANGE/FLOAT(NSTEP)
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