代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/221868/14716901
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/208614/15242332
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/208614/15242379
f90 ex1015.f90
module linklist
implicit none
type :: datalink
integer :: i
type(datalink), pointer :: prev ! 指向上一条数据
type(datalink), pointer :: next ! 指向下一条数据
end type datalink
contains
www.eeworm.com/read/208614/15242525
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/206593/15293473
f90 dsmc_to_couetee.f90
program couette
! couette (DSMC,*IP)
implicit doubleprecision (a-h,o-z)
parameter (no_cell=50) !no_cell,网格数
parameter (no_molecule_each_cell=30) !no_molecule_each_cell,每个网格分子数
param
www.eeworm.com/read/470720/1452517
c 20020116-2.c
/* This testcase ICEd on sparc64 because -mcpu=supersparc and implicit
-m64 resulted in MASK_V8 and MASK_V9 to be set at the same time. */
/* { dg-do compile } */
/* { dg-options "" } */
/* { dg-o
www.eeworm.com/read/470693/1464463
c 20020116-2.c
/* This testcase ICEd on sparc64 because -mcpu=supersparc and implicit
-m64 resulted in MASK_V8 and MASK_V9 to be set at the same time. */
/* { dg-do compile } */
/* { dg-options "" } */
/* { dg-o
www.eeworm.com/read/460526/1560733
f90 menu.f90
! 使用菜单范例
! By Perng 1997/9/22
program Menu_Demo
use DFLIB
implicit none
type(windowconfig) :: wc
integer :: result
integer :: i,ix,iy
wc.numxpixels=200 ! 窗口的宽
wc.numypixels=200 !
www.eeworm.com/read/233522/4667809
txx vcl_complex.txx
#ifndef vcl_complex_txx_
#define vcl_complex_txx_
// -*- c++ -*-
#include "vcl_complex.h"
#if VCL_USE_IMPLICIT_TEMPLATES
# include "iso/vcl_complex.txx"
#elif !VCL_USE_NATIVE_COMPLEX
# incl
www.eeworm.com/read/233522/4667981
txx vcl_iterator.txx
#ifndef vcl_iterator_txx_
#define vcl_iterator_txx_
// -*- c++ -*-
#include "vcl_iterator.h"
#if VCL_USE_IMPLICIT_TEMPLATES
# include "iso/vcl_iterator.txx"
#elif !VCL_USE_NATIVE_STL
# incl