代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/409260/11339010
f90 gdemo3.f90
program gdemo3
use TextGraphLib
implicit none
integer i
call SetScreen(70,24)
call ClearScreen()
! 画脸
call DrawCircle( 35, 12, 20, 10 )
! 画两个眼睛
call SetCurrentChar('0')
www.eeworm.com/read/258562/11854172
f90 sglimg5.f90
module sgl_util
use sgl
implicit none
integer(1), save :: buffer(512*512)
integer(4), save :: buffer4(512*512/4)
equivalence(buffer,buffer4)
contains
subroutine display()
call
www.eeworm.com/read/258562/11854186
f90 nutility.f90
module defoperator
use typedef
implicit none
interface assignment(=)
module procedure vector2i_assign_vector2f
module procedure vector2f_assign_vector2i
end interface
interface o
www.eeworm.com/read/258562/11854288
f90 ivprk.f90
! IMSL IVPRK范例
! 求解Y'(t)=-0.01*Y(t)
! initial condition Y(0)=2
program main
use IMSL
implicit none
integer, parameter :: MXPARM = 50
integer, parameter :: N = 1
integer IDO, ISTEP, N
www.eeworm.com/read/258562/11854551
f90 ex0912.f90
program ex0912
implicit none
integer, parameter :: fileid = 10
character(len=20) :: filename = "list.bin"
integer player
real :: hit(9) = (/ 3.2, 2.8, 3.3, 3.2, 2.9, 2.7, 2.2, 2.3, 1.
www.eeworm.com/read/258562/11854804
f90 ex0513.f90
program ex0513
implicit none
real a,b,ans
character operator
read(*,*) a
read(*,"(A1)") operator ! 不使用格式有些机器会读不到除号"/"
read(*,*) b
select case(operator)
case('+')
ans
www.eeworm.com/read/258562/11854848
f90 gdemo3.f90
program gdemo3
use TextGraphLib
implicit none
integer i
call SetScreen(70,24)
call ClearScreen()
! 画脸
call DrawCircle( 35, 12, 20, 10 )
! 画两个眼睛
call SetCurrentChar('0')
www.eeworm.com/read/341974/12051817
html 00193.html
18.11.3 Instantiation using implicit .name port connections
www.eeworm.com/read/128196/14311340
bcc makefile.bcc
#
#
# Borland c++ Makefile for splash and tests
#
#
CC = bcc32
CCFLAGS = -WX -v -Ic:\bc4\include
# *Implicit Rules*
.c.obj:
$(CC) -c $(CCFLAGS) {$< }
.cpp.obj:
$(CC) $(CCFLAGS) -c
www.eeworm.com/read/221868/14716836
f90 ex0912.f90
program ex0912
implicit none
integer, parameter :: fileid = 10
character(len=20) :: filename = "list.bin"
integer player
real :: hit(9) = (/ 3.2, 2.8, 3.3, 3.2, 2.9, 2.7, 2.2, 2.3, 1.