do while(counter<=UpperBound) write(*,*)"input Mis Cai'age" read(*,*)input_age if(abs(age-input_age)<error)exit counter=counter+1 end do if((counter>UpperBound).and.(abs(age-input_age)>=error))then write(*,*)"you wrong" else write(*,*)"great!,you are right",input_age end...
if (n /= 0) exit i = i + 1 end do close(10) print *, 'Data read from file:' do n = 1, i print *, data(n) end do end program read_file 代码解释 文件打开: 使用 open 语句打开文件 filename 以读取模式 (status='old',action='read')。 读取数据: 使用 read 语句逐行读取文件中...
local_sum = 0.0 do i = 1 + rank, n, size local_sum = local_sum + a(i) end do ! 归约所有进程的局部和到全局和 call MPI_Allreduce(local_sum, total_sum, 1, MPI_REAL, MPI_SUM, MPI_COMM_WORLD, ierr) ! 输出计算结果 if (rank == 0) then print *, 'Sum of array a:', tot...
转换成fftw3里的格式:if(mod(Nbeads,2)==0)thendoi=1,(Nbeads+2)/2Y_use(i)=Y_out(2*i-1)end doj=(Nbeads+2)/2+1doi=Nbeads,4,-2Y_use(j)=Y_out(i)j=j+1end doelseL=(Nbeads-1)/2doi=1,L+1Y_use(i)=Y_out(2*i-1)end doj=L+2doi=2*L+2,4,-2Y_use(j)=Y_out(i)...
do i=1,9 do j=i+1,10 if(F_Sort(i).LT.F_Sort(j)) then intSort=F_Sort(i)F_Sort(i)=F_Sort(j)F_Sort(j)=intSort endif enddo enddo !数据标准IO输出!!!键盘输入数据的标准IO输出显示--检查与监测 PRINT*,"键盘输入的整数个数N: " PRINT*,I_N PRINT*,"键盘输入数据的处理结...
数组专用:where命令 形式上类似于if,但只用于设置数组 where ... elsewhere ... elsewhere ... endwhere 1. 2. 3. 4. 5. 6. 7. (没有then) FORALL是Fortran95添加的功能,只能用于数组操作,forall可以嵌套使用,还可以在forall中使用where,但where中不能使用forall ...
1. IF-THEN语句 IF-THEN语句是Fortran中最基本的判断语句,它的语法如下: IF (condition) THEN statement block END IF 其中,condition是一个逻辑表达式,如果为真,则执行statement block中的语句,否则跳过该语句块。 2. IF-THEN-ELSE语句 IF-THEN-ELSE语句是IF-THEN语句的扩展版本,它的语法如下: IF (condition...
IF(QZDATA.GE.0.) THEN ICNT = ICNT + 1 ROX(ICNT) = XA(I)-DELTA/2. ENDIF SUM = SUM + X(I) ENDIF SUM = SUM + XA(I) 使用块 IF 不仅可以提高编译器生成优化代码的机会,而且可以增强可读性并确保可移植性。 9.1.5 查看编译器注释 ...
则表示allocate数组失败 Deallocate(a) 表示删除分配的内存 跟allocate相关的函数还有allocated,它用来检查一个可变大小的矩阵是否已经配置内存使用,他会返回一个逻辑值 If(.not. allocated(a))then Allocate(a(5)) End if 函数 子程序(subroutine)的使用 ...
程序块1 ELSE IF (逻辑表达式2) THEN 程序块2 ELSE IF (逻辑表达式2) THEN 程序块2 ... ELSE IF (逻辑表达式N) THEN 程序块N ELSE 程序块N+1 END IF 7 FORTRAN77循环语句 7.1 GO TO语句 标号程序行 程序块 GO TO标号 7.2 DO语句 DO标号,记数变量=起始值,终止值,步距”语句,如 DO标号...