月色撩人

1 .AND.2 .OR.3 .EQV.   (l1 和 l2 同为真或者同为假时 值为真)4 .NEQV.5 .NOT.

<br /><br />! Insertion sort<br />SUBROUTINE sortc(array,n)<br />IMPLICIT NONE<br />INTEGER,INTENT(IN)::n<br />CHARACTER(LEN=*),DIMENSION(n),INTENT(INOUT)::array<br />! local var<br />INTEGER::i, j, iptr<br />CHARACTER(LEN=LEN(array))::temp<br />! sort the

<br /><br />EXTERNAL is neededin a variety of situations: <br />- If you pass asubroutine name to a subroutine and there is no explicit interface (as wasthe case in FORTRAN 77), EXTERNAL makes it clear to the compiler asubroutine is meant.<br />- I

PROGRAM hw_bubble_sortIMPLICIT NONEINTEGER,PARAMETER::SIZE=200INTEGER::IO_stateCHARACTER(LEN=128)::IO_msgCHARACTER(LEN=128)::format_str,temp_strREAL,DIMENSION(SIZE)::arrayINTEGER::loop_index,i,j,iptrCHARACTER(LEN=128)::file_nameREAL::temp

<br /><br />PROGRAM hw_table<br />IMPLICIT NONE<br />INTEGER::i<br />INTEGER::cube<br />INTEGER::square<br />REAL::square_root<br />    WRITE(*,100)<br />    100 FORMAT(T3, 'Table of Square Roots, Squares, and Cubes')<br />    WRITE(*,110)<br />    110 FOR

!使用字符串来描述格式PROGRAM hwIMPLICIT NONECHARACTER(LEN=128)::str_format !!!highlightINTEGER::num_i=21REAL::num_r=3.1415926    str_format='("The Result for iteration",I3," is",F8.5)'    WRITE(*,str_format) num_i,num_r END PROGRAM

1. 确定MKL 已经安装，并且找到mklvars32.sh 或者mklvars64.sh等 配置环境变量文件，也可以通过在.bashrc 文件中加入 .[空格]/opt/intel/Compiler//11.1/046/mkl/tools/environment/mklvars32.sh， 可以在启动终端时自动设置环境变量。2.

PROGRAM hwIMPLICIT NONEINTEGER::IO_stateCHARACTER(LEN=128)::IO_msgINTEGER::input_i    WRITE(*,*) 'Input an integer:'    IO_state=-1    IO_msg=''    DO        IF(IO_state==0) EXIT        READ(*,*,IOSTAT=IO_state,IOMSG=IO_msg) input_i        WRITE(*,*) TRIM(

1。 fortran 程序还可他的子程序之间用地址传递方案（pass by reference）来进行通信2。 应该在模块中使用SAVE属性来确保使用时不修改模块的内容3。 在module中使用过程可以不用写interface。。。只需要use关联， 因而，可以把相关的子过程放在一个module里

  1   2         PROGRAM test_select_sort  3 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  4 ! Purpose: To test the subroutine or function select_sort                       !  5 ! Record of revisions:            

数组初始化3种方法1。 DO 循环2。 类型声明中初始化， 可以使用在声明时使用隐式DO循环       例如：INTEGER，DIMENSION（5）：：array1＝(/(loop_index,loop_index=1,5)/)      隐式DO循环还可以与常量嵌套和混合：       INTEGER, DIMENSION(100)::array2=(/((0, i=1,4), 5*j, j=1,5)/)3。 使用READ语句初始化

<br />PROGRAM hw<br />IMPLICIT NONE<br />INTEGER,PARAMETER::DBL=SELECTED_REAL_KIND(p=13)<br />REAL(KIND=DBL),ALLOCATABLE,DIMENSION(:,:)::a<br />REAL(KIND=DBL),ALLOCATABLE,DIMENSION(:)::b<br />REAL(KIND=DBL),ALLOCATABLE,DIMENSION(:)::soln<br />INTEGER::IO_s