代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/460969/7236487
f90 mod_wavefield.f90
!_______________________________________________________________________
MODULE WAVEFIELD
USE PRECISION, ONLY: WP
IMPLICIT NONE
REAL (KIND=WP), DIMENSION (:) , ALLOCATABLE ::
www.eeworm.com/read/460969/7236518
f90 mod_interfaces.f90
MODULE MOD_INTERFACES
IMPLICIT NONE
INTERFACE
SUBROUTINE ALLOCATE_ARRAYS
END SUBROUTINE ALLOCATE_ARRAYS
FUNCTION FUNC_M1_RHO(Z)
USE NRTYPE , ONLY: WP
IMPLICIT NO
www.eeworm.com/read/460384/7252183
f90 e_232_01.f90
implicit none
integer :: score,n0=0,n1=0,n2=0,n3=0,n4=0
do
read *, score
if(score100) then
print *,'满分=',n0,' 优=',n1,' 良=',n2,' 及格=',n3,' 不及格=',n4
exit
else
select case
www.eeworm.com/read/460384/7252189
f90 e_321_02.f90
implicit none
integer :: i,n
real :: y=0, term
read *, n
do i=1,n
term=1./(i*(i+1))
y=y+term
if(abs(term)
www.eeworm.com/read/445493/7595149
f90 new_libr.f90
module new_library
contains
subroutine formblock_k(bigk,km,g,g_min)
! forms complete n*n matrix or submatrix
implicit none
real,intent(in)::km(:,:); integer,
www.eeworm.com/read/445424/7595579
f90 cksep.f90
logical function cksep(x1)
!----------------------------------------------------------------------------------
! Purpose: Check for existence of separator characters in data.
! Inputs:
!
www.eeworm.com/read/442653/7648311
pas generics.nullable.pas
unit Generics.Nullable;
interface
uses
SysUtils, TypInfo;
resourcestring
sCantConvertNilToTypeName = 'Ne peut convertir nil en %s';
sCantConvertNil = 'Ne peut convertir nil';
sOnl
www.eeworm.com/read/440809/7680600
f90 ex0914.f90
program ex0914
implicit none
integer :: a=2
integer :: b=3
character(len=20) :: string
write( unit=string, fmt="(I2,'+',I2,'=',I2)" ) a,b,a+b
write(*,*) string
stop
end pro
www.eeworm.com/read/434957/7799889
f90 doolittle.f90
program Doolittle
implicit none
integer i,j,n,t,k
real,dimension (:,:),allocatable::a,l,u,w
real,dimension (:,:),allocatable::b,x,y,v
print*,"输入方程阶数：n"
read *,n
www.eeworm.com/read/399279/7875642
f90 e_232_01.f90
implicit none
integer :: score,n0=0,n1=0,n2=0,n3=0,n4=0
do
read *, score
if(score100) then
print *,'满分=',n0,' 优=',n1,' 良=',n2,' 及格=',n3,' 不及格=',n4
exit
else
select case