2022年度Fortran语言编程小结.docVIP

1.单双精度 Program ex01 implicit none real(kind=4) :: a real(kind=8) :: b a=3._4 ! 拟定这个数字是使用单精度 b=3._8 ! 拟定这个数字是使用双精度 write(*,*) a,b End program ex01 2.判断kind值 program ex02 Implicit none ! 判断可以记录9个位数整数kind值 integer, parameter :: long_int = selected_int_kind( 9 ) ! 判断可以记录3个位数整数kind值 integer, parameter :: short_int = selected_int_kind( 3 ) ! 判断可以有3个有效位数, 指数可以记录到3浮点数kind值 integer, parameter :: long_real = selected_real_kind( 10, 50 ) ! 判断可以有10个有效位数, 指数可以记录到50浮点数kind值 integer, parameter :: short_real= selected_real_kind( 3, 3 ) integer(kind=long_int) :: a = 123456 integer(kind=short_int) :: b = 123 real(kind=long_real) :: c = +145 real(kind=short_real) :: d =+1230 write(*, (I3,1X,I10) ) long_int, a write(*, (I3,1X,I10) ) short_int, b write(*, (I3,1X,E10.5) ) long_real, c write(*, (I3,1X,E10.5) ) short_real, d END 3.TYPE program ex0434 implicit none Type :: person ! 开始建立person这个类型 character(len=30) :: name ! 人名 integer :: age ! 年龄 integer :: height ! 身高 INTEGER :: weight ! 体重 character(len=80) :: address ! 地址 End type person type(person) :: a ! 声明一种person类型变量 write(*,*) NAME: read(*,*) a%name write(*,*) AGE: read(*,*) a%age write(*,*) HEIGHT: read(*,*) a%height write(*,*) WEIGHT: read(*,*) a%weight write(*,*) ADDRESS: read(*,*) a%address write(*,100) a%name,a%age,a%height,a%weight 100 format(Name:,A10/,Age:,I3/,Height:,I3/,Weight:,I3/, Addres:,A80) End 4.REAL 与 INTEGER Program ex0431 implicit none integer :: a=1 integer :: b=2 real :: c c=a/b ! c=1/2=0, 虽然c是浮点数,但由于a,b是整数,计算a/b时会用整数去计算. write(*,(F5.2)) c End 5.DATA 变量表/初值表/,变量表/初值表/,… PROGRAM ex0430 IMPLICIT NONE INTEGER A REAL B COMPLEX C CHARACTER(20) STR DATA A,B,C,STR /1, 2.0, (1.0,2.0), FORTRAN 77/ WRITE(*,*) A,B,,C,STR END 6.复数实虚部 Program ex0430 complex :: c = (1,2) write(*,100)real(c),+,aimag(c),i 100 format(f5.1,a1,f5.1,a1) End 7.逻辑输出 Program ex0416 logical a,b a=.true. b=.false. write(*