代码搜索结果
找到约 10,000 项符合
F 的代码
f.java
import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
import java.io.*;
class TextEditorFrame extends JFrame{
File file=null;
Color color=Color.red;
TextEditorFra
stopp.f
*$declare
*$debug
SUBROUTINE STOPP(NT)
integer NT
integer i,j
external RANGE,DEDX
real RANGE,DEDX
**************** real sum
********************** real z1,a1
real DIADJ(10)
COMMON /GEN/D
dedx.f
*$debug
*$declare
program calDEDX
include 'stpwtbl.i'
external range,dedx
real range,dedx
real z,a,energy,aRange,aDEDX,pRange,thick,range0,eout,eloss
real eps
integer ians,loop
integer n,m
interpo.f
*$debug
*$declare
subroutine interpo(n,a,f1,x,y1,ierr,m,eps)
real v1(20,20),b(20)
real a(*),f1(*)
real s,bv,vv1,el,ec
integer m2,is,ib,im,il,ir,i,j,k
m2=2*m
is=1
ib=n
1 continue
im=(is+ib
dedxintp.f
*$declare
*$debug
subroutine rng2ene(range,energy,dedx)
real range ! [g/cm2]
real energy ! [MeV/A]
real dedx ! [MeV/(g/cm2)]
include 'stpwtbl.i'
integer ierr,m
real eps
parameter (eps=1
stpwtbl.f
*$debug
*$declare
subroutine readsptbl
include 'stpwtbl.i'
integer i,j,m11
OPEN(8,FILE='STPW.TBL',STATUS='OLD')
READ(8,'(2I5)') MAXIN,MAXTG
DO 15 I=1,MAXIN
15 READ(8,'(A8,2F10.6)') INNA
f.js
function setTrBgcolor(obj, types, bgtypes) {
if (types == 1) {
obj.style.background = "#999999";
}
else {
if (bgtypes == 1) {
obj.style.background = "#F6F