FORTRAN语言 MOD在fortran里就是求余数的函数，Fortran没有专门求模的函数，自己写一个就好啦~
FORTRAN语言 在FORTRAN语言中，求模是什么意思，我们一般认为求模是这样的，例如：1+i的模是1的平方+1的平方再把和开方。而我在一些程序里看到有MOD(5，3)=2，好像是求余数，。
高财富值求fortran 95程序！ 具体要求是：求P的e次方关于n的余数（具体见下图） 具体算 c fortran77程序－在fortran95中应该能正常运行dimension a(32)，b(32)integer p，e，n，a，b，i，j，k，mp=1563e=67n=3599do 5 i=1，32a(i)=0b(i)=15 continuecall dec2bin(e，a)do 10 i=32，1，-1if(a(i).ne.0)thenk=igoto 12endif10 continue12 b(1)=modd(p，n)do 15 i=2，kb(i)=modd(b(i-1)*b(i-1)，n)15 continuem=1do 20 i=1，kif(a(i).eq.1)thenm=m*b(i)endif20 continuewrite(*，*)modd(m，n)endc 自定义求余函数（返回值的绝对值小于n的一半）function modd(p，n)integer modd，p，nmodd=mod(p，n)if(modd.gt.n/2)thenmodd=modd-nendifreturnendc 将10进制数转为2进制，结果存放在数组a中c 最低位存放在a(1)中，其余类推subroutine dec2bin(e，a)dimension a(32)integer e，a，i，ji=010 if(e.gt.0)theni=i+1j=mod(e，2)a(i)=je=e/2goto 10endifreturnend
