fortran.mb1

编写fortran的小工具 希望大家喜欢用

, ($I) , +
. . - &$/&
.and. .and.
.eq. .eq.
.eqv. .eqv.
.ge. .ge.
.gt. .gt.
.le. .le.
.lt. .lt.
.ne. .ne.
.neqv. .neqv.
.not. .not.
.or. .or.
/ / *
; ; !
abs abs($I) abs($Ix)$_!求绝对值∣x∣
access access
achar achar($In)$_!将ascii码n转换为对应字符。
acos acos($I) acos($I)$_!反余弦arccos()
acosd acos($I) acos($I)$_!反余弦arccos()
action action
adjustl adjustl($Istring)$_!将字符串string左对齐,即去掉左端空格。
adjustr adjustr($Istring)$_!将字符串string右对齐,即去掉右端空格。
admit admit
aimag aimag($I)
aint aint($I) aint($Ix[,kind])$_!取整,并转换为实数(kind)。
all all($I) all($Im[,d])$_!判定逻辑数组m各元素是否都为“真”。
allocatable allocatable($I)
allocate allocate($I)
allocated allocated($I) allocated($Ia)$_!判定动态数组a是否分配存储空间。
alog alog($I) alog($I)$_!自然对数ln()
alog10 alog10($I)$_!以10为底一般对数log10()
amax0 amax0($I) amax0($Ix1,x2,x3,…)$_!求x1,x2,x3,…中最大值。
amin0 amin0($I) amin0($Ix1,x2,x3,…)$_!求x1,x2,x3,…中最小值。
anint anint($Ix[,kind])$_!对x四舍五入取整,并转换为实数(kind)。 anint($I)
any any($I) any($Im[,d])$_!判定逻辑数组m是否有一元素为“真”。
asin asin($I) asin($I)$_!反正弦arcsin()
asind asind($I) asind($I)$_!反正弦arcsin()
assign assign
assignment assignment
associated associated($I) associated($Ip[,t])$_!判定指针p是否指向目标t。
atan atan($I) atan($I)$_!反正切arctg()
atan2 atan2($I) atan2($Iy,x)$_!反正切arctg(y/x)。
atan2d atan2d($I) atan2d($Iy,x)$_!反正切arctg(y/x)。
atand atand($I) atand($I)$_!反正切arctg()
backspace backspace
bit_size bit_size($I) bit_size($In)$_!求n类型整数的最大二进制位数。
blank blank
blockdata block$_data
blocksize blocksize
break break
btest btest($I) btest($In,p)$_!判定整数n的二进制表示右起第p位是否为1。
call call
call call call($Irandom_seed) call($I)
carg carg
carriagecontrol carriagecontrol
case case($I)
ceiling ceiling($I) ceiling($I)$_!求≥x的最小整数。
char char($I)
char char($I) char($In)$_!将ascii码n转换为对应字符。
character character character(len=$I):: character::
close close($I)
cmplx cmplx($I) cmplx($Ix[,y][,kind]))$_!将参数转换为x、(x,0.0)或(x,y)。
common common
complex complex
conjg conjg($I)$_!求共轭复数。
contains contains
continue continue
cos cos($I) cos($I)$_!余弦cos()
cosd cosd($I) cosd($I)$_!余弦cos()
cosh cosh($I)
cotan cotan($I) cotan($I)$_!余切ctg()
count count($I) count($Im[,d])$_!计算逻辑数组m为“真”元素个数。
cshift cshift($I) cshift($Ia,s[,d])$_!将数组a元素按行(d=1或缺省)或按列(d=2)且向左(d>0)或向右循环移动s次
cycle cycle
date_and_time date_and_time
dble dble($I) dble($I)$_!转换为双精度实数。
dcmplx dcmplx($Ix[,y])$_!将参数转换为x、(x,0.0)或(x,y)。
deallocate deallocate($I) deallocate($I)$_!释放动态数组内存
default default
dfloat dfloat($I)$_!将整数转换为双精度实数。
digits digits($I) digits($I)$_!查询x的机内编码数值部分二进制位数(除符号位和指数位)。
dim dim($I,) dim($Ix,y)$_!即max(x-y,0)。
dimension dimension($I) dimension($I)::
direct direct
do do
dot_product dot_product
double double
dprod dprod($Ix,y)
dvchk dvchk
else else else$_if else$_where
elseif else$_if($I)
elsewhere else$_where
end end$_do end$_if end$_function end$_program end$_forall end$_where
enddo end$_do
endfile endfile
endforall end$_forall
endfunction end$_function
endif end$_if endif
endprogram end$_program
endsubroutine end$_subroutine
endwhere end$_where
endwhile endwhile
entry entry
eoshift eoshift($I) eoshift($Ia,s[,b][,d])$_!将数组a元素按行(d=1或缺省)或按列(d=2)且向左(d>0)或向右循环移动s次
epsilon epsilon($I) epsilon($I)$_!查询x类型可表示的最小正实数。
equivalence equivalence
err err
error error
execute execute
exist exist
exit exit
exp exp($I)
exponent exponent($I) exponent($I)$_!求机内编码表示的指数值。
external external
file file=
float float($I) float($I)$_!将x转换为单精度实数。
floor floor($I)$_!求≥x的最大整数。x:r,结果:i floor($I)
flush flush
fmt fmt=
forall forall
form form=
format format($I)
formatted formatted($I)
fraction fraction($I) fraction($I)$_!求机内编码表示的小数值。
from from
fs function$_$IFuncionName()$/implicit$_none$/$/end$_function
function function
getcl getcl
goto go$_to goto
guess guess
huge huge($I) huge($I)$_!查询x类型可表示的最大数。
iachar iachar($I) iachar($Ic)$_!将字符c转换为对应的ascii码。
iand iand($I) iand($Im,n)$_!对m和n进行按位逻辑“与”运算。
ibchng ibchng($I) ibchng($In,p)$_!将整数n二进制表示右起第p位值取反。
ibclr ibclr($In,p)$_!将整数n二进制表示右起第p位置0。
ibits ibits($Ii,p,l)$_!从整数n二进制表示右起第p位开始取l位。
ibset ibset($In,p)$_!将整数n二进制表示右起第p位置1。
ichar ichar($I) ichar($Ic)$_!将字符c转换为对应的ascii码。
ieor ieor($Im,n)$_!对m和n进行按位逻辑“异或”运算。
if if($I)$_then$/$/end$_if if($I) if($I)$_then
ifix ifix($I) ifix($I)$_!将x转换为整数(取整)。
ilen ilen($I) ilen($I)$_!查询x的反码值。
imag imag($I) imag($I)$_!同aimag($I)
implicit implicit$_none implicit($I)
include include
index index($I) index($Is,ss[,b])$_!求子串ss在串s中起始位置。
inquire inquire($I)
int int($I) int($Ix[,kind])$_!将x按kind值x转换为整数。
integer integer(kind=4):: integer integer(kind=):: integer(kind=2)::
intent intent(in) intent(out)
interface interface
intrinsic intrinsic
intrup intrup
invalop invalop
ior ior($I) ior($Im,n)$_!对m和n进行按位逻辑“或”运算。
iostat iostat="$I"
iostat_msg iostat_msg
isha isha($I) isha($In,s)$_!对n向左(s为正)或向右(s为负)移动s位(算术移位)。
ishc ishc($I) ishc($In,s)$_!对n向左(s为正)或向右(s为负)移动s位(循环移位)。
ishft ishft($I) ishft($In,s)$_!对n向左(s为正)或向右(s为负)移动s位(逻辑移位)。
ishftc ishftc($I) ishftc($In,s[,size])$_!对n最右边size位向左(s为正)或向右(s为负)移动s位(循环移位)
ishl ishl($I) ishl($In,s)$_!对n向左(s为正)或向右(s为负)移动s位(逻辑移位)。
kind kind($I) kind($I)$_!查询x的kind参数值。
lbound lbound($Ia[,d])$_!求数组a某维d的上界。
len len($I)
len_trim len_trim($I) len_trim($Is)$_!求字符串s去掉尾部空格后的字符数。
lge lge($I) lge($Is1,s2)$_!按ascii码值判定字符串s1大于等于字符串s2。
lgt lgt($I) lgt($Is1,s2)$_!按ascii码值判定字符串s1大于字符串s2。
lle lle($I) lle($Is1,s2)$_!按ascii码值判定字符串s1小于等于字符串s2。
llt llt($I) llt($Is1,s2)$_!按ascii码值判定字符串s1小于字符串s2。
location location
log log($I)
log10 log10($I)
logical logical logical:: logical($Ix[,kind])$_!按kind值转换新逻辑值。
loop loop
map map
matmul matmul($I) matmul($Ima,mb)$_!对二维数组(矩阵)ma和mb做乘积运算。
max max($I) max($Ix1,x2,x3,…)$_!求x1,x2,x3,…中最大值。
max1 max1($I) max1($Ix1,x2,x3,…)$_!求x1,x2,x3,…中最大值(取整)。
maxexponent maxexponent($I) maxexponent($I)$_!查询最大正指数值。
maxloc maxloc($I) maxloc($Ia[,m])$_!求数组a中对应掩码m为“真”最大元素下标值。
maxval maxval($I) maxval($Ia[,d][,m])$_!求数组a中对应掩码m为“真”元素最大值。
merge merge($I) merge($Its,fs,m)$_!将数组ts和fs按对应m掩码数组元素合并,掩码为“真”取ts值,否则取fs值
min min($I) min($Ix1,x2,x3,…)$_!求x1,x2,x3,…中最小值。
min1 min1($I) min1($Ix1,x2,x3,…)$_!求x1,x2,x3…中最小值(取整)。
minexponent minexponent($I) minexponent($I)$_!查询最大负指数值。
minloc minloc($I) minloc($Ia[,m])$_!求数组a中对应掩码m为“真”最小元素下标值。
minval minval($I) minval($Ia[,d][,m])$_!求数组a中对应掩码m为“真”元素最小值。
mod mod($I) mod($Ix,y)$_!求x/y的余数,值为x-int(x/y)*y。
module module
modulo modulo($I) modulo($Ix,y)$_!求x/y余数,值为x-floor(x/y)*y。
mvbits mvbits
name name
named named
namelist namelist
nbreak nbreak
ndperr ndperr
ndpexc ndpexc
nearest nearest($I) nearest($Ix,s)
nextrec nextrec
nint nint($I) nint($Ix[,kind])$_!将按kind值x转换为整数(四舍五入)。
none none
not not($I) not($I)$_!位逻辑“非”运算。
nullify nullify($I)
number number
offset offset
only only
open open($I,file="") open(unit=$I,file=)
opened opened($I)
operator operator($I)
optional optional
otherwise otherwise
out out
ovefl ovefl
pack pack($I) pack($Ia,m[,v])$_!将数组a中对应m掩码数组元素为“真”元素组成一维数组并与一维数组v合并
parameter parameter
pause pause
pointer pointer
position position
precfill precfill
precision precision($I) precision($I)$_!查询x类型有效数字位数。
present present($I) present($I)$_!查询可选形参x是否有对应实参。
print print
private private
pro program procedure product($I)
procedure procedure
product product($I) product($Ia[,d][,m])$_!数组a中对应掩码m为“真”元素乘积。
program program$_main program
prompt prompt
ps program$_$IProgramName$/implicit$_none$/$/end$_program
public public
quit quit
radix radix($I) radix($I)$_!查询此类型的基数。
range range($I) range($I)$_!查询此类型的指数范围。
rbound rbound($Ia[,d])$_!求数组a某维d的下界。
read read(unit=$I,format=) read($I,"()") read(*,*)
real real($Ix[,kind])$_!将x按kind值转换为实数。 real($I) real:: real(kind=4):: real(kind=$I)::
recl recl=
record record
recordtype recordtype
recursive recursive
remote remote
repeat repeat($I) repeat($Is,n)$_!求字符串s重复n次的新字符串。
reshape reshape($I) reshape($Ia,s)$_!将数组a的形按数组s定义的形转换。
result result
return return
rewind rewind($I)
rrspacing rrspacing($I)
save save
scale scale($I) scale($Ix,i)$_!乘以2i。
scan scan($I) scan($Is,st[,b])$_!求串st中任一字符在串s中的位置。
segment segment
select select select$_case($I)
selectcase($I) select$_case($I)
selected_int_kind selected_int_kind
selected_real_kind selected_real_kind
sequence sequence
sequential sequential
set_exponent set_exponent($I) set_exponent($Ix,i)
shape shape($I) shape($Ia)$_!求数组a的形。
sign sign($I) sign($Ix,y)$_!绝对值乘以y的符号。
sin sin($I) sin($I)$_!正弦sin()
sind sind($I) sind($I)$_!正弦sin()
sinh sinh($I) sinh($I)$_!双曲正弦sh()
size size($I) size($Ia[,d])$_!求数组a的元素个数。
sizeof sizeof($I) sizeof($I)$_!查询存储分配字节数。
sngl sngl($I) sngl($I)$_!将双精度实数转换为单精度实数。
spacing spacing($I) spacing($I)$_!求x与x最近值的差值绝对值。
spread spread($I) spread($Ia,d,n)$_!以某维d扩展数组a的元素n次。
sqrt sqrt($I)
ss subroutine$_$ISubroutineName()$/implicit$_none$/$/end$_subroutine
stat stat
statements statements
status status
stop stop
structure structure
subroutine subroutine
sum sum($I) sum($Ia[,d][,m])$_!数组a中对应掩码m为“真”元素之和。
system system
system_clock system_clock
tan tan($I) tan($I)$_!正切tg()
tand tand($I) tand($I)$_!正切tg()
tanh tanh($I) tanh($I)$_!双曲正切th()
target target
timer timer
tiny tiny($I) tiny($I)$_!查询最小正值。
transfer transfer
transpose transpose($I) transpose($Ia).$_!对数组a进行转置。
trim trim($I)
type type($I) type($I)::
ubound ubound
undfl undfl
unformatted unformatted
union union
unit unit
unpack unpack($I) unpack($Ia,m,f)$_!将一维数组a、掩码数组m值和f值组合生成新数组。
until until
use use
verify verify($I) verify($Is,st[,b])$_!求不在串st中字符在s中位置。
where where
while while
write write(*,*) write($I,"()") write(unit=$I,format=)
zext zext($I) zext($I)$_!用0向左侧扩展x。
zza !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
zzb !*****************************
zzc !ccccccccccccccccccccccccccccc
zzd !=============================
zze !-----------------------------
zzf !#############################
zzg !/////////////////////////////
zzh !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%