代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2877524
f90 mvbits_1.f90
! PR 25577
! MVBITS didn't work correctly for integer types wider than a C int
! The testcase is based on the one Dale Ranta posted in the bug report
implicit none
integer(1) i1,j1
integer(2) i2,j2
in
www.eeworm.com/read/366702/2877818
f90 char_pack_2.f90
! Test scalar pack for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 3, n2 = 4, nv = 16, slen = 9
character (len = slen), dimension (n1, n2) :: a
char
www.eeworm.com/read/351636/3102288
txx vcl_set.txx
#ifndef vcl_set_txx_
#define vcl_set_txx_
// -*- c++ -*-
#include "vcl_set.h"
#if VCL_USE_IMPLICIT_TEMPLATES
# include "iso/vcl_set.txx"
#elif !VCL_USE_NATIVE_STL
# include "emulation/vcl_s
www.eeworm.com/read/351636/3102336
txx vcl_map.txx
#ifndef vcl_map_txx_
#define vcl_map_txx_
// -*- c++ -*-
#include "vcl_map.h"
#if VCL_USE_IMPLICIT_TEMPLATES
# include "iso/vcl_map.txx"
#elif !VCL_USE_NATIVE_STL
# include "emulation/vcl_m
www.eeworm.com/read/474355/6821153
txt d_radon.txt
program d_radon
implicit none
!定义各变量
integer :: m,n,k,h
integer :: pk,th,xm,yn
real,allocatable :: p(:),t(:),g(:,:),q(:,:),g_radon(:,:)
character(len=80) :: filename1="g_data.txt"
char
www.eeworm.com/read/189063/8491903
dos makefile.dos
# MAKEFILE for DOS version of GENESIS
# Implicit rule for Turbo C
.c.obj:
tcc -O -K -c $<
GA = best.obj checkpnt.obj convert.obj cross.obj display.obj \
done.obj elitist.obj error.obj ev
www.eeworm.com/read/288527/8625112
dos makefile.dos
# MAKEFILE for DOS version of GENESIS
# Implicit rule for Turbo C
.c.obj:
tcc -O -K -c $<
GA = best.obj checkpnt.obj convert.obj cross.obj display.obj \
done.obj elitist.obj error.obj ev
www.eeworm.com/read/285874/8805612
htm mi21.htm
More Effective C++ | Item 21: Overload to avoid implicit typ
www.eeworm.com/read/282207/9114185
for wall.for
SUBROUTINE WALL(CNU,CNK,VISCOS,SKS,UU,YPP,TKK,TEE,USTAR)
IMPLICIT REAL*8(A-H,O-Z)
Z00 =0.033*SKS
USTAR=UU*CNK/DLOG(YPP/Z00)
if(UU.LT.1.0D-2)goto 503
www.eeworm.com/read/183625/9147241
f90 ex0717.f90
program ex0717
implicit none
integer :: size, error=0
integer, parameter :: one_mb=1024*1024 ! 1MB
character, allocatable :: a(:)
do while( .true. )
size=size+one_mb ! 一次增加1MB个字符