代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/208614/15242295
f90 sgltimer.f90
module sgl_util
use sgl
implicit none
contains
subroutine display()
integer, parameter :: size = 200
real, parameter :: rinc = 0.002
real, save :: radian = 0.0
integer :: x,y
x
www.eeworm.com/read/208614/15242298
f90 sglidle.f90
module sgl_util
use sgl
implicit none
contains
subroutine display()
integer, parameter :: size = 200
real, parameter :: rinc = 0.002
real, save :: radian = 0.0
integer :: x,y
x
www.eeworm.com/read/208614/15242317
f90 sglimg1.f90
module sgl_util
use sgl
implicit none
integer(1), save :: buffer(3*512*512)
integer(4), save :: buffer4(3*512*512/4)
equivalence(buffer,buffer4)
contains
subroutine display()
i
www.eeworm.com/read/208614/15242324
f90 ex0607.f90
program ex0607
implicit none
real, parameter :: weight=45.0
real, parameter :: error=0.0001
real :: guess = 0.0
do while( .true. )
write(*,*) "weight:"
read(*,*) guess
i
www.eeworm.com/read/208614/15242327
f90 ex0613.f90
program ex0613
implicit none
integer i
integer strlen
integer, parameter :: key = 2
character(len=20) :: string
write(*,*) "Encoded string:"
read(*,*) string
strlen = len_trim(
www.eeworm.com/read/208614/15242333
f90 ex0612.f90
program ex0612
implicit none
integer i
integer strlen
integer, parameter :: key = 2
character(len=20) :: string
write(*,*) "String:"
read(*,*) string
strlen = len_trim(string)
www.eeworm.com/read/208614/15242366
f90 ex1103.f90
module MA
implicit none
real a,b
contains
subroutine getx()
write(*,"('x=',F5.2)") -b/a
return
end subroutine
end module
module MB
use MA
implicit none
real c
contain
www.eeworm.com/read/208614/15242375
f90 ex1013.f90
module typedef
implicit none
type :: datalink
integer :: i
type(datalink), pointer :: prev ! 指向上一条数据
type(datalink), pointer :: next ! 指向下一条数据
end type datalink
end module typ
www.eeworm.com/read/208614/15242480
f90 input.f90
! Interactive的绘图范例
! By Perng 1997/9/20
program Plot_Sine
use DFLIB
implicit none
logical :: result
integer :: input
type(WindowConfig) :: wc
real(kind=8), external :: f1,f2,f3 ! 所要绘
www.eeworm.com/read/208614/15242528
f90 ex0817.f90
program ex0817
implicit none
integer, parameter :: size = 5
integer :: s = size
integer :: a(size) = (/ 1,2,3,4,5 /)
call UseArray1(a,size) ! 把常数size传入做数组大小
call UseArray1(a,s) ! 把一