1
2
3
4
5
6
7
8
9
      program heatexplicit
      implicit none
      doubleprecision dx,dt,xmin,xmax,tmin,tmax,r,c
      doubleprecision grid(0:20,0:10)
      integer i,j,ncols,nrows
*      initial values!!!
      data grid/ 231 * 0.0/
      c=1
      dx=0.1
 ...

1
2
3
4
5
6
7
8
9
Program Chapter7
!
! This program reads in and print out name and address
!
Implicit None
Characters (32) ::name and address in reverse
!
        Print*, 'Type in your address and name.'
        Print*, 'up to 32 characters.'
 ...

1
2
3
4
5
6
7
8
9
Dariel Ross Chapter7
!
! This program reads in and print out name and address
!
Implicit None
Characters (32) ::name and address in reverse
!
        Print*, 'Type in your address and name.'
        Print*, 'up to 32 characters.'
 ...

1
2
3
4
5
6
7
8
9
PROGRAM Triangle
REAL :: a, b, c, s, areasq, area
WRITE (*,*) "This program calculates the area of a triangle"
WRITE (*,*) "Type in the lenths of the three sides: "
READ (*,*) a, b, c
WRITE (*, *) "Check: you have input the following lengths: "
WRITE (*, *) a, b, c
s = 0.5 * (a+b+c)   !Semiperimeter
areasq = s * (s-a) * (s-b) * (s - c)  ! square of area
 ...

1
2
3
4
5
6
7
8
9
PROGRAM Triangle
REAL :: a, b, c, s, areasq, area
WRITE (*,*) "This program calculates the area of a triangle"
WRITE (*,*) "Type in the lenths of the three sides: "
READ (*,*) a, b, c
WRITE (*, *) "Check: you have input the following lengths: "
WRITE (*, *) a, b, c
s = 0.5 * (a+b+c)   !Semiperimeter
areasq = s * (s-a) * (s-b) * (s - c)  ! square of area
 ...

1
2
3
4
5
6
7
8
9
PROGRAM Triangle
REAL :: a, b, c, s, areasq, area
WRITE (*,*) "This program calculates the area of a triangle"
WRITE (*,*) "Type in the lenths of the three sides: "
READ (*,*) a, b, c
WRITE (*, *) "Check: you have input the following lengths: "
WRITE (*, *) a, b, c
s = 0.5 * (a+b+c)   !Semiperimeter
areasq = s * (s-a) * (s-b) * (s - c)  ! square of area
 ...

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
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
4
PROGRAM T
IMPLICIT NONE
PRINT*, COS(1.0)
END PROGRAM

1
2
3
4
PROGRAM t
IMPLICIT NONE
PRINT*, (-9)/4
END PROGRAM

1
PRINT*, (-9)/4

1
2
3
4
5
6
7
8
9
PROGRAM TRAJECTORY
IMPLICIT NONE
 
REAL altitude, velocity, angle, angleRadians, distance, time, pi, acceleration
PARAMETER(pi = 3.14159)
PARAMETER(acceleration = 9.81)
 
PRINT *, "Altitude (meters)"
READ *, altitude
 ...

1
2
3
4
5
6
7
8
9
program dangerousmath
!-----------------------------------------------------------------------------------------------
! Written by Jon Brito for Engineering 225 on Jan. 25 2012
! This is my time using the vi editor
!
!-----------------------------------------------------------------------------------------------
IMPLICIT NONE
real  :: A, B, x,mu,c
integer:: I, K, n = 9
 ...

1
2
3
4
5
6
7
8
9
 
IMPLICIT NONE
real :: A, B, x, mu, C
integer:: I, K, n = 9
character (10) :: Name
A=3
B=(n+3)/5
X=5.75
I=3.141959
 ...

1
2
3
4
5
6
7
8
9
                        
                                 
                          
                         
                 
             
                           
                          
                                 
 ...

1
2
3
4
5
6
        program TEST 
                integer ans 
                ans = 1 + 1
                write (*,*) ans 
                stop 
        end

1
2
3
4
5
6
7
8
        program TEST 
                integer ans 
                do 
                        ans = {} + {}
                        write (*,*) ans 
                enddo 
                stop 
        end

1
2
3
4
5
6
7
8
        program TEST 
                integer ans 
                do 
                        ans = [] + []
                        write (*,*) ans 
                enddo 
                stop 
        end

1
2
3
4
5
6
7
8
        program TEST 
                integer ans 
                do 
                        ans = 1 + 1
                        write (*,*) ans 
                enddo 
                stop 
        end

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
4
5
6
7
8
9
program TaskA
implicit none 
real                :: p, k, time, depth, dt, TRock, TAir
real, allocatable   :: Z(:), T(:,:), F(:,:)
real                :: dz, gamma
integer             :: j, n, nMax, jMax
 
TRock   = 270
TAir    = 200
 ...

1
2
3
4
5
6
7
8
9
! ===================================================================================
PROGRAM Homogeneous
 
! ===================================================================================
! Modules to demonstrate a model of homogeneous background error covariances using
! the Fourier transform method.
! Ross Bannister
! National Centre for Earth Observation
! January 2012
 ...

1
2
3
4
5
6
7
8
9
PROGRAM Euler10
        IMPLICIT none
        CHARACTER(100) :: fname
        INTEGER :: n
        call getarg(1,fname)    
        open(unit=7, file=fname)
        Read(7,*) n
        call Prime(n)
CONTAINS        
 ...

1
2
3
4
5
6
7
8
9
PROGRAM PopulationMod
!--------------------------------------------------------------------------------------------
!Karl Harris                                   ENGR 225                        1-27-12
!
!This program will calculate population growth over time
!
!Identifiers used are:
!PT            : Population growth over time (in years)
!time          : time of growth (in years)
 ...

1
2
3
4
5
6
7
8
9
program identity
!
!program to prompt user to feed in his address and name
!
IMPLICIT NONE
CHARACTER(20)::Name
CHARACTER(20)::Last_Name
CHARACTER(40)::address
!
 ...

1
2
3
4
5
CHARACTER NAME*20
PRINT *,'TYPE YOUR NAME'
PRINT *,'IN QUOTE'
READ *,NAME 
PRINT *,NAME

1
2
3
4
5
6
7
8
9
PROGRAM DANGEROUSMATH
!---------------------------------------------------------------------------------
!Karl Harris                             ENGR225              1-25-12
!I predict the outcome to be "A= 3.0,B= 2.0,x= 5.75, I= 3, k= 2, mu= 0
 
IMPLICIT NONE
integer,parameter ::dp=selected_real_kind(15) !15 sig figs
Real(dp) ::  A,B, x, C, mu
Integer :: I, K, n = 9
 ...

1
2
3
4
5
6
7
8
9
PROGRAM DANGEROUSMATH
!---------------------------------------------------------------------------------
!Karl Harris                             ENGR225              1-25-12
!I predict the outcome to be "A= 3.0,B= 2.0,x= 5.75, I= 3, k= 2, mu= 0
 
IMPLICIT NONE
integer,parameter ::dp=selected_real_kind(15) !15 sig figs
Real(dp) ::  A,B, x, C, mu
Integer :: I, K, n = 9
 ...

1
2
3
4
5
6
7
8
9
PROGRAM DANGEROUSMATH
!---------------------------------------------------------------------------------
!Karl Harris                             ENGR225              1-25-12
!I predict the outcome to be "A= 3.0,B= 2.0,x= 5.75, I= 3, k= 2, mu= 0
 
IMPLICIT NONE
integer,parameter ::dp=selected_real_kind(15) !15 sig figs
Real(dp) ::  A,B, x, C, mu
Integer :: I, K, n = 9
 ...

1
2
3
4
5
6
7
8
9
      WRITE (*,*) 'DIME LOS COEFICIENTES '
      READ (*,*) A,B,C
      D=(B**2.)-(4.*A*C)
      IF (D.LT.0) GOTO 10
      X1=(-B+D**(1./2.))/(2.*A)
      X2=(-B-D**(1./2.))/(2.*A)
      WRITE (*,*) 'X1=',X1,' X2=',X2
      GOTO 40
   10 R=-B/2./A
 ...