1
2
3
4
5
6
7
8
9
      INTEGER i,j,k,ls,lp
      i=24
      j=3
      k=7
      ls=i+j+k
      lp=i*j*k
      WRITE(*,31) i,j,k,ls,lp
   31 FORMAT(5I12)
      STOP

1
2
3
4
5
6
7
8
9
     Programa que calcula suma y producto
      INTEGER i,j,k,ls,lp
      i=24
      j=3
      k=7
      ls=i+j+k
      lp=i*j*k
      PRINT, i,j,k,ls,lp
      WRITE(*,31) i,j,k,ls,lp
 ...

1
2
3
4
5
6
7
8
9
C     Programa que calcula suma y producto
      INTEGER i,j,k,ls,lp
      i=24
      j=3
      k=7
      ls=i+j+k
      lp=i*j*k
C      PRINT, i,j,k,ls,lp
      WRITE(*,31) i,j,k,ls,lp
 ...

1
2
3
4
5
6
7
8
9
!Population Growth - By: Marshall Clarke
!This program takes values for initial population, birth rate, death rate
!and time period then calculates a value for the Total Population
 
!Initial program setup.Program  Name + Assign Variables
program PopGrowth
implicit none
integer, parameter::dp=selected_real_kind(15)
real (dp)::Po,b,d,t,Pt
 ...

1
2
3
4
5
6
7
8
9
!Population Growth - By: Marshall Clarke
!This program takes values for initial population, birth rate, death rate
!and time period then calculates a value for the Total Population
 
!Initial program setup.Program  Name + Assign Variables
program PopGrowth
implicit none
integer, parameter::dp=selected_real_kind(15)
real (dp)::Po,b,d,t,Pt
 ...

1
2
3
4
5
6
7
8
9
!Population Growth - By: Marshall Clarke
!This program takes values for initial population, birth rate, death rate
!and time period then calculates a value for the Total Population
 
!Initial program setup.Program  Name + Assign Variables
program PopGrowth
implicit none
integer, parameter::dp=selected_real_kind(15)
real (dp)::Po,b,d,t,Pt
 ...

1
2
3
4
5
6
7
8
9
Program TankSize
!-----------------------------------------------------------------------------------------------
!Tyler Martin                           Engr 225 Lab 2 Extra Credit             25 January 2012
!                                       Tank Size Optimization  
!
!Assumptions: That the oil will fill up the tank completely, and that the corners of the tank
!       will be perfectly square and not rounded.
!
!-----------------------------------------------------------------------------------------------
 ...

1
print 'Noobis!!!!!!!'

1
2
3
4
5
6
7
8
9
 program average
 
  ! Read in some numbers and take the average
  ! As written, if there are no data points, an average of zero is returned
  ! While this may not be desired behavior, it keeps this example simple
 
  implicit none
 
  real, dimension(:), allocatable :: points
 ...

1
2
3
4
5
6
7
8
9
 program average
 
  ! Read in some numbers and take the average
  ! As written, if there are no data points, an average of zero is returned
  ! While this may not be desired behavior, it keeps this example simple
 
  implicit none
 
  real, dimension(:), allocatable :: points
 ...

1
2
3
4
5
6
7
8
9
 program average
 
  ! Read in some numbers and take the average
  ! As written, if there are no data points, an average of zero is returned
  ! While this may not be desired behavior, it keeps this example simple
 
  implicit none
 
  real, dimension(:), allocatable :: points
 ...

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

1
2
3
4
5
6
7
8
9
program DangerousMath
implicit none
integer, parameter :: dp = selected_real_kind(15)
real(dp) :: A, B, x, mu, c
integer:: I, K, n = 9
character (10) :: Name
a=3
b=(n+3)/5
x=5.75
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
implicit none
integer, parameter :: dp = selected_real_kind(15)
real(dp) :: A, B, x, mu, c
integer:: I, K, n = 9
character (10) :: Name
a=3
b=(n+3)/5
x=5.75
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
implicit none
integer, parameter :: dp = selected_real_kind(15)
real(dp) :: A, B, x, mu, c
integer:: I, K, n = 9
character (10) :: Name
a=3
b=(n+3)/5
x=5.75
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
implicit none
integer, parameter :: dp = selected_real_kind(15)
real(dp) :: A, B, x, mu, c
integer:: I, K, n = 9
character (10) :: Name
a=3
b=(n+3)/5
x=5.75
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
implicit none
integer, parameter :: dp = selected_real_kind(15)
real(dp) :: A, B, x, mu, c
integer:: I, K, n = 9
character (10) :: Name
a=3
b=(n+3)/5
x=5.75
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
implicit none
integer, parameter :: dp = selected_real_kind(15)
real(dp) :: A, B, x, mu, c
integer:: I, K, n = 9
character (10) :: Name
a=3
b=(n+3)/5
x=5.75
 ...

1
2
3
4
5
6
7
8
9
Program Sum_and_Average
!
! This program reads in three numbers and sums and averages them
!
IMPLICIT NONE
 
 
REAL :: N1, N2, N3, Average = 0.0, Total = 0.0
INTEGER :: N = 3
 ...

1
2
3
4
5
6
7
8
9
Program Name_and_Address
!
!This program reads in name and address, then prints them out in reverse order
!
IMPLICIT NONE
 
character (15) :: F_name
character (15) :: L_name
character (36) :: Address
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
implicit none
integer, parameter :: dp = selected_real_kind(15)
real(dp) :: A, B, x, mu, c
integer:: I, K, n = 9
character (10) :: Name
a=3
b=(n+3)/5
x=5.75
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
implicit none
integer, parameter :: dp = selected_real_kind(15)
real(dp) :: A, B, x, mu, c
integer:: I, K, n = 9
character (10) :: Name
a=3
b=(n+3)/5
x=5.75
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
!-------------------------------------------------------------------------
!Tyler Martin                   Engr 225 Lab 2             25 January 2012
!                               Dangerous Math Program
!-------------------------------------------------------------------------
Implicit None
integer, parameter::dp=selected_real_kind(15)
        real(dp) :: A, B, C, x, mu
        integer :: I, K, n = 9
 ...

1
2
3
4
5
6
7
8
9
PROGRAM Circle
!-------------------------------------------------------------------------------
!Karl Harris                                ENGR225
!January-20-2012
!                                      ASSIGNMENT #1
!
!Program will calculate and display the radius, circumfrence, and area of a 
!circle whose diameter is chosen by the user.
! Input :Diameter
 ...

1
2
3
4
5
6
7
8
9
PROGRAM Circle
!-------------------------------------------------------------------------------
!Karl Harris                                ENGR225
!January-20-2012
!                                      ASSIGNMENT #1
!
!Program will calculate and display the radius, circumfrence, and area of a 
!circle whose diameter is chosen by the user.
! Input :Diameter
 ...

1
2
3
4
5
6
7
8
9
Program PopulationGrowth
!----------------------------------------------------------------------
!Tyler Martin                   Engr225 Lab 2           25 January 2012
!                               Population Growth Model
!----------------------------------------------------------------------
 
Implicit None
integer, parameter :: dp=selected_real_kind(15)
real(dp) :: InitialPop, Birth, Death, Time
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
!-------------------------------------------------------------------------
!Tyler Martin                   Engr 225 Lab 2             25 January 2012
!                               Dangerous Math Program
!-------------------------------------------------------------------------
Implicit None
integer, parameter::dp=selected_real_kind(15)
        real(dp) :: A, B, C, x, mu
        integer :: I, K, n = 9
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
!-------------------------------------------------------------------------
!Tyler Martin                   Engr 225 Lab 2             25 January 2012
!                               Dangerous Math Program
!-------------------------------------------------------------------------
Implicit None
integer, parameter::dp=selected_real_kind(15)
        real(dp) :: A, B, C, x, mu
        integer :: I, K, n = 9
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
 
Implicit None
integer, parameter::dp=selected_real_kind(15)
real(dp) :: A, B, C, x, mu
integer :: I, K, n = 9
        character (10) :: Name
        A=3
        B=(n+3)/5
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
IMPLICIT NONE
integer, parameter :: dp=selected_real_kind(15)
integer :: n = 9
real (dp) :: a, b, x, I, K, mu, c
character (10) :: Name
 
a = 3
b = (n+3)/ 5
 ...