代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/155374/5625525
mk vc16.mk
#############################################################################
#
# SciTech Multi-platform Graphics Library
#
# =====================================================================
www.eeworm.com/read/155374/5625529
mk hc32.mk
#############################################################################
#
# SciTech Multi-platform Graphics Library
#
# =====================================================================
www.eeworm.com/read/155374/5625534
mk bc3.mk
#############################################################################
#
# SciTech Multi-platform Graphics Library
#
# =====================================================================
www.eeworm.com/read/473767/6839485
f90 ans0501.f90
program main
implicit none
integer money
real tax
write(*,*) "请输入月收入"
read(*,*) money
if ( money
www.eeworm.com/read/128521/5989579
h rgram.h
/* @(#)rgram.h 1.3 96/09/10 */
/*
* ====================================================
* Copyright (C) 1995 by Sun Microsystems, Inc. All rights reserved.
*
* Developed at SunSoft, a Sun Microsy
www.eeworm.com/read/291542/8410481
for minmod.for
! copyright:wangaifeng
! DATE :2007-07-25
! Company :GUCAS
real function minmod(x,y)
implicit real(a-h,o-z)
if(x*y.le.0.) then
minmod = 0.
else
www.eeworm.com/read/428681/8852419
txt mainverse.txt
program main
implicit none
integer :: i,j,k
integer,parameter :: N=3
real(8),dimension(3,3) :: a
open(1000,file='matrix.dat',status='old')
do i=1,N
read(1000,*) a(i,:)
www.eeworm.com/read/183626/9147103
f90 ex0831.f90
program ex0831
implicit none
integer :: n
write(*,*) 'N='
read(*,*) n
write(*, "(I2,'! = ',I8)" ) n, fact(n)
stop
contains
recursive integer function fact(n) result(ans)
www.eeworm.com/read/183626/9147160
f90 ex0828.f90
program ex0828
implicit none
integer :: n
integer, external :: fact
write(*,*) 'N='
read(*,*) n
write(*, "(I2,'! = ',I8)" ) n, fact(n)
stop
end
recursive integer function fac
www.eeworm.com/read/183626/9147219
f90 ex0827.f90
program ex0827
implicit none
interface
real function func(x,a,b,c) ! 定义子程式func的接口
implicit none
real x
real, optional :: a,b,c
end function
end interface
write(*,