代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/476406/6760820
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/476406/6760849
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/476406/6760924
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/476406/6761025
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/476406/6761041
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/409260/11338602
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/409260/11338608
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/409260/11338655
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/409260/11338853
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/409260/11338986
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