代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/376037/9335764
f90 ex0511.f90
program ex0511
implicit none
character(len=20) :: str1,str2
character relation
write(*,*) "String 1:"
read(*,"(A20)") str1
write(*,*) "String 2:"
read(*,"(A20)") str2
if (
www.eeworm.com/read/365788/9847040
txt 6-产生单频波之和的电影程序-p71.txt
!公式见P70
! wave field extrapoiation program
!computer program to make a movie of a sum of monochromatic waves.(Lynn,Gonzalez,JFC,Hale)
!implicit undefined (n-z)
complex cd(48),ce(48),cf(48),q(4
www.eeworm.com/read/360542/10088679
f90 ex0511.f90
program ex0511
implicit none
character(len=20) :: str1,str2
character relation
write(*,*) "String 1:"
read(*,"(A20)") str1
write(*,*) "String 2:"
read(*,"(A20)") str2
if (
www.eeworm.com/read/351740/10614193
f90 devc.f90
MODULE DEVICE_VARIABLES
USE PRECISION_PARAMETERS
IMPLICIT NONE
CHARACTER(255), PARAMETER :: devcid='$Id: devc.f90 567 2007-09-11 20:48:44Z drjfloyd $'
CHARACTER(255), PARAMETER :: devcrev='$Revisio
www.eeworm.com/read/460770/7241015
makefile
#
# Make info documentation
#
AUXFILES = *.aux *.cp *.fn *.ky *.log *.pg *.toc *.tp *.vr *.dvi
SRCS = rdoff.texi
OUTS = rdoff.info rdoff.html rdoff.ps rdoff.pdf
## Implicit rules
%.html : %.texi
www.eeworm.com/read/457035/7334820
f90 modi.f90
module Euler
!!!!!!!!!!!!!!!!!!!!!module中的变量及常量!!!!!!!!!!!!!!!!!!!!!!!!
implicit none
!private x,y,U,F,G,JJ,R
integer,parameter::M=100 !x方向等分数
integer,parameter::N=40 !y方向等分数
intege
www.eeworm.com/read/445424/7595580
f90 tim_prec.f90
subroutine TIM_Precise()
! Purpose: Precise integration scheme
use linear_operators
use module_parameter
use module_data
use module_ioport
implicit none
integer i, ndof1, ndof2
rea
www.eeworm.com/read/436837/7761966
m nobias.m
function nb = nobias(ker)
%NOBIAS returns true if SVM kernel has no implicit bias 返回的是SVM核函数是否有非隐含偏项
%
% Usage: nb = nobias(ker)
%
% Parameters: ker - kernel type
%
% Author: Steve Gu
www.eeworm.com/read/476406/6760843
f90 ex0614.f90
program ex0614
implicit none
real a,b,ans
character :: key = 'y' ! 为了至少进入循环1次
do while( key=='y' .or. key=='Y' )
read(*,*) a
read(*,"(A1)") key
read(*,*) b
select case(key)
www.eeworm.com/read/476406/6760890
f90 ex1015.f90
module linklist
implicit none
type :: datalink
integer :: i
type(datalink), pointer :: prev ! 指向上一条数据
type(datalink), pointer :: next ! 指向下一条数据
end type datalink
contains