代码搜索:implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/119348/6085090
js ro.js
// I18N constants
// LANG: "ro", ENCODING: UTF-8
// Author: Mihai Bazon, http://dynarch.com/mishoo
// FOR TRANSLATORS:
//
// 1. PLEASE PUT YOUR CONTACT INFO IN THE ABOVE LINE
// (at least a v
www.eeworm.com/read/119348/6085093
js hu.js
// I18N constants
// LANG: "hu", ENCODING: UTF-8
// Author: Miklós Somogyi,
// FOR TRANSLATORS:
//
// 1. PLEASE PUT YOUR CONTACT INFO IN THE ABOVE LINE
// (at least a vali
www.eeworm.com/read/112303/6145709
asn mcspdu.asn
MCS-PROTOCOL DEFINITIONS ::=
BEGIN
-- Part 1: Fundamental MCS types
ChannelId ::= INTEGER (0..65535) -- range is 16 bits
StaticChannelId ::= ChannelId (1..1000) -- those known permanently
Dynam
www.eeworm.com/read/101082/6248223
c rtdsio.c
#ifndef lint
static char *sccsid = "@(#)rtdsio.c 4.1 (ULTRIX) 7/2/90";
#endif lint
/************************************************************************
*
www.eeworm.com/read/101082/6249030
c 1.node.c
#ifndef lint
static char sccsid[] = "@(#)1.node.c 4.1 (Berkeley) 2/11/83";
#endif not lint
#include
#include "def.h"
#include "1.incl.h"
makenode(type,addimp,addcom, labe,arcnum,arctype,ar
www.eeworm.com/read/101082/6249066
c 1.recog.c
#ifndef lint
static char sccsid[] = "@(#)1.recog.c 4.1 (Berkeley) 2/11/83";
#endif not lint
#include
#include "1.incl.h"
#include "def.h"
recognize(type, ifflag) /* if ifflag = 1, state
www.eeworm.com/read/360546/6352174
f90 bsearch.f90
!
! 折半查找法范例
! By Perng 1997/8/31
program BINARY_SEARCH_DEMO
implicit none
integer, parameter :: N=10 ! 类型的大小
integer :: A(N)=(/2,5,7,9,10,11,13,17,21,23/)
integer KEY
integer LO
www.eeworm.com/read/360546/6352178
f90 btree.f90
!
! 二元树排序范例
!
module typedef
implicit none
type :: data
integer :: n ! 存放的数据
integer :: repeat ! 数据重覆的次数
type(data), pointer :: left ! 左枝
type(data), pointer :: r
www.eeworm.com/read/492438/6423106
f90 smooth.f90
SUBROUTINE Smooth
USE CtrlData
IMPLICIT DOUBLE PRECISION( a-h, o-z )
iswth = 13
CALL PreSmooth
DO ielem = 1, nelem
CALL ElmOpt( ielem,
www.eeworm.com/read/487272/6517615
f90 e_232_01.f90
implicit none
integer :: score,n0=0,n1=0,n2=0,n3=0,n4=0
do
read *, score
if(score100) then
print *,'满分=',n0,' 优=',n1,' 良=',n2,' 及格=',n3,' 不及格=',n4
exit
else
select case