代码搜索:implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/221868/14716867
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/221868/14716917
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/208614/15242305
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/208614/15242309
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/208614/15242338
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/208614/15242413
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/208614/15242514
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/208614/15242530
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/470720/1444843
c friend18.c
// { dg-do run }
// Copyright (C) 2003 Free Software Foundation, Inc.
// Contributed by Nathan Sidwell 26 Mar 2003
// PR 10158. implicit inline template friends ICE'd
temp
www.eeworm.com/read/470720/1445378
c instan1.c
// Build don't run:
// Origin: Mark Mitchell
// Special g++ Options: -fno-implicit-templates
template
struct U {
static int j;
};
template
struct S {