1
2
3
4
5
6
7
8
9
program func_tab
real :: a
real :: b
real :: h
real :: x
real,dimension(25) :: xi
real,dimension(25) :: yi
integer :: i
integer :: n
 ...

1
2
3
4
5
6
7
8
9
program func_tab
real :: a
real :: b
real :: h
real :: x
real,dimension(25) :: xi
real,dimension(25) :: yi
integer :: i
integer :: n
 ...

1
2
3
4
5
6
7
8
9
program func_tab
real :: a
real :: b
real :: h
real :: x
real,dimension(25) :: xi
real,dimension(25) :: yi
integer :: i
integer :: n
 ...

1
2
3
4
5
6
7
8
9
program func_tab
real :: a
real :: b
real :: h
real :: x
real,dimension(25) :: xi
real,dimension(25) :: yi
integer :: i
integer :: n
 ...

1
2
3
4
5
6
7
8
9
program func_tab
real :: a
real :: b
real :: h
real :: x
real,dimension(25) :: xi
real,dimension(25) :: yi
integer :: i
integer :: n
 ...

1
2
3
4
5
6
7
8
9
program func_tab
real :: a
real ::  b
real :: h
real :: x
real,dimension(25) :: xi
real,dimension(25) :: yi
integer :: i
integer :: n
 ...

1
2
3
4
5
6
7
8
9
program func_tab
real :: a
real ::  b
real :: h
real :: x
real,dimension(25) :: xi
real,dimension(25) :: yi
integer :: i
integer :: n
 ...

1
2
3
4
5
6
7
8
9
program func_tab
real :: a
real ::  b
real :: h
real :: x
real,dimension(25) :: xi
real,dimension(25) :: yi
integer :: i
integer :: n
 ...

1
2
3
4
5
6
7
8
9
program func_tab
real :: a
real ::  b
real :: h
real :: x
real,dimension(25) :: xi
real,dimension(25) :: yi
integer :: i
integer :: n
 ...

1
2
3
4
5
6
7
8
9
program func_tab
real :: a
real ::  b
real :: h
real :: x
real,dimension(25) :: xi
real,dimension(25) :: yi
integer :: i
integer :: n
 ...

1
2
3
4
5
6
7
8
9
program func_tab
real :: a
real ::  b
real :: h
real :: x
real,dimension :: xi(25)
real,dimension :: yi(25)
integer :: i
integer :: n
 ...

1
2
3
4
5
6
7
8
9
        INTEGER COUNT,ID
        REAL GRADE,AVG
        OPEN(UNIT=10,FILE='GRADES.TXT',STATUS='OLD')
        OPEN(UNIT=11,FILE='ABOVE.TXT',STATUS='UNKNOWN')
        OPEN(UNIT=12,FILE='BELOW.TXT',STATUS='UNKNOWN')
        SUM=0.0
        COUNT=0
22      READ(10,*,END=33)ID ,GRADE
        COUNT=COUNT+1
 ...

1
2
3
4
5
6
7
8
9
        INTEGER COUNT,ID
        REAL GRADE,AVG
        OPEN(UNIT=10,FILE='GRADES.TXT',STATUS='OLD')
        OPEN(UNIT=11,FILE='ABOVE.TXT',STATUS='UNKNOWN')
        OPEN(UNIT=12,FILE='BELOW.TXT',STATUS='UNKNOWN')
        SUM=0.0
        COUNT=0
22      READ(10,*,END=33)ID ,GRADE
        COUNT=COUNT+1
 ...

1
2
3
4
5
PROGRAM TEST
   PRINT *, 'What is your age?'
   READ *, A
   PRINT *, 'Twice your age is', 2 * A
END PROGRAM TEST

1
2
3
4
5
6
7
8
9
PROGRAM TRIG_TABLE
! Compiles a table of SIN, COS, TAN against angle in DEGREES
   IMPLICIT NONE
   INTEGER DEG                        ! angle in degrees
   REAL RAD                           ! angle in radians
   REAL PI                            ! mathematical pi
   CHARACTER (LEN=*), PARAMETER :: FMTHEAD = '( 1X, A3, 3( 2X, A7   ) )'
   CHARACTER (LEN=*), PARAMETER :: FMTDATA = '( 1X, I3, 3( 2X, F7.4 ) )'
                                      ! formats for headings and data
 ...

1
2
3
PROGRAM TEST
   PRINT *, 'Hello!!!'
END PROGRAM TEST

1
2
3
4
5
6
7
8
9
INTEGER ::  a, b, o
 
a = 1
b = 3
o = 2
 
IF ((a .GT. 0) .AND. (b .GT. o)) THEN
    print *, "blafoo"
END IF
 ...

1
2
3
4
5
6
7
8
9
       program gj
 
       real a(4,5)
       write(*,*) 'input renritsu houteishiki'
       do 10 i=1,4
          read(*,*) (a(i,j),j=1,5)
 10    continue
       call sweep(a)
       do 11 i=1,4
 ...

1
2
3
4
5
6
7
8
9
       program gj
 
       real a(4,5)
       write(*,*) 'input renritsu houteishiki'
       do 10 i=1,4
          read(*,*) (a(i,j),j=1,5)
 10    continue
       call sweep(a)
       do 11 i=1,4
 ...

1
2
3
4
5
6
7
8
9
       program gj
 
       real a(4,5)
       write(*,*) 'input renritsu houteishiki'
       do 10 i=1,4
          read(*,*) (a(i,j),j=1,5)
 10    continue
       call sweep(a)
       do 11 i=1,4
 ...

1
2
3
4
5
6
7
8
9
       program gj
 
C      gauss-jordan method
C      11/12/14 040367H M.YANASE
C      based on the same program by M.Arai
 
       real a(4,5)
       write(*,*) 'input renritsu houteishiki'
       do 10 i=1,4
 ...

1
2
3
4
5
6
7
8
9
       program gj
 
       real a(4,5)
       write(*,*) 'input renritsu houteishiki'
       do 10 i=1,4
          read(*,*) (a(i,j),j=1,5)
 10    continue
       call sweep(a)
       do 11 i=1,4
 ...

1
2
3
4
5
6
7
8
9
       program gj
 
C      gauss-jordan method
C      11/12/14 040367H M.YANASE
C      based on the same program by M.Arai
 
       real a(4,5)
       write(*,*) 'input renritsu houteishiki'
       do 10 i=1,4
 ...

1
2
3
4
5
6
7
8
9
        program TEST 
                integer ans 
                do 
                        read (*,*) ans 
                        if (ans.eq.42) stop 
                        write (*,*) ans 
                enddo 
                stop 
        end

1
2
3
 program main
   print *,"Hello, World!"
 end program main

1
2
3
4
      WRITE(*,10)
   10 FORMAT('Hello, World!')
      STOP
      END

1
2
3
4
5
6
7
8
      ! Evaluates to .TRUE. if x is
      ! a multiple of either 3 or 5
      logical function euler_num(x)
          integer x
          euler_num = mod(x,3) .EQ. 0 &
                 .OR. mod(x,5) .EQ. 0
          return
      end
 ...

1
2
3
4
5
6
7
8
9
      logical function euler_num(x)
          integer x
          euler_num = mod(x,3) .EQ. 0 &
                 .OR. mod(x,5) .EQ. 0
          return
      end function
 
      program euler1
          integer sum
 ...

1
2
3
4
5
6
7
8
9
      logical function euler_num(x)
          integer x
          euler_num = MOD(x,3) .EQ. 0 &
                 .OR. MOD(x,5) .EQ. 0
          return
      end function
 
      PROGRAM EULER1
          integer sum
 ...

1
2
3
4
5
6
7
8
9
      function euler_num(x)
          integer x
          euler_num = MOD(x,3) .EQ. 0 &
                 .OR. MOD(x,5) .EQ. 0
          return
      end function
 
      PROGRAM EULER1
          integer sum
 ...